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Preface 


The  purpose  of  this  study  was  to  develop  a  software 
program  for  Implementation  by  Tactical  Air  Command  for  the 
management  of  the  standardization/evaluation  function. 
Experience  in  this  area  both  as  a  chief  of  standardization/ 
evaluation  and  as  a  headquarters  inspector  helped  me  recog¬ 
nize  the  value  of  such  a  program  in  meeting  the  needs  of 
users  at  the  unit  level. 

Coding  of  the  applications  program  was  done  using  the 
Ashton-Tate  dBase  III  Plus  data  base  management  program  in 
conjunction  with  the  MicroPro  International  Corporation 
WordStar  word  processing  program.  I  wish  to  thank  both 
firms  for  providing  such  capable  programs. 

I  wish  to  thank  my  thesis  advisors,  Lieutenant  Colonel 
Richard  Peschke,  and  Professor  Daniel  Reynolds  for  the 
support  and  enthusiasm  they  provided  during  this  effort. 

I  thank  Colonel  James  S.  Mosbey,  Director  of  Ninth  Air 
Force  Standardization/Evaluation,  for  providing  me  with 
dBase  III  Plus  and  the  opportunity  to  address  the  unit 
users  at  the  annual  standardization/evaluation  conference. 

A  special  thanks  goes  to  Major  Richard  Lohnes,  178th  TFG 
Chief  of  Standardization/Evaluation,  for  the  many  hours  of 
frustration  endured  during  the  test  and  validation  phase 
of  this  project.  Finally,  I  wish  to  thank  my  wife  and 
children  for  supporting  an  absentee  husband  and  father 
over  the  past  fifteen  months. 

Bobby  M.  Robinson 
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ABSTRACT 


The  purpose  of  this  study  was  to  determine  the  feasi¬ 
bility  of  developing  a  microcomputer  based  system  for  use 
by  unit  level  standardization/evaluation  officers.  Unit 
chiefs  of  standardization/evaluation  were  interviewed,  and 
a  list  of  requirements  identified.  An  applications  prog¬ 
ram  was  developed  and  demonstrated  at  the  annual  Ninth  Air 
Force  Standardization/Evaluation  conference  using  dBase 
III  Plus.  The  program  was  modified  then  tested  and  vali¬ 
dated  at  a  Tactical  Fighter  unit.  The  program  developed 
meets  or  exceeds  the  needs  identified  during  the  research 
process . 

The  resulting  software  program  is  an  easy  to  install, 
easy  to  use,  data  base  management  information  system.  The 
program  requires  virtually  no  computer  expertise  by  the 
user,  and  entails  almost  no  training.  The  system  operates 
on  a  PC-compatible  microcomputer  which  runs  dBase  III 
Plus,  has  one  hard  disk  drive,  one  floppy  disk  drive,  a 
monitor,  and  a  printer. 

Although  designed  specifically  for  Tactical  Air  Com¬ 
mand,  other  MAJCOMs  could  adopt  the  program  with  only 
minor  or  no  modifications.  Improvements  in  both  man-hour 
requirements  and  accuracy  could  be  expected  through  imple¬ 
mentation  of  this  program. 
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tactical  air  command  automated 

STANDARDIZATION/EVALUATION  MANAGEMENT  PROGRAM 


I.  Introduction 


General  Background 

Every  fighter  squadron  and  forward  air  control  squad¬ 
ron  in  the  Air  Force  is  required  to  perform  certain  man¬ 
agement  tasks  associated  with  aircrew  certification.  For 
the  purposes  of  this  study,  only  Tactical  Air  Command 
(TAC)  units  assigned  to  Ninth  Air  Force  will  be  considered. 
Since  the  Directorate  of  Standardization/Evaluation  at 
Headquarters  TAC  establishes  policy  and  requirements  for 
its  subordinate  units  it  is  assumed  that  meeting  the 
requirements  of  Tactical  Air  Command  Regulation  (TACR) 

60-2,  Aircrew  Standardization  Evaluation  Program,  will 
satisfy  the  necessary  elements  of  this  program. 

In  1981  TAC  units  began  using  microcomputers  in  oper¬ 
ational  squadrons.  Initially,  TRS-30  and  Cromemco  compu¬ 
ters  were  provided  to  the  squadrons,  but  with  very  limited 
software  support.  Hardware  improvements  resulted  in  the 
Air  National  Guard  Bureau  (ANGB)  and  the  Air  Force  Reser¬ 
ves  buying  Zenith  Z-100  and  Z-150  microcomputers  for  their 
units.  These  hardware  differences  led  to  incompatibility 
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among  the  units’  software.  Currently,  units  are  upgrading 
their  microcomputer  systems  to  the  Zenith  Z-248  system 
(4,6,10).  Although  hardware  is  keeping  pace  with  current 
technology,  software  provided  to  the  units  is  not.  Also, 
training  of  unit  personnel  has  not  kept  up  with  unit 
needs.  The  lag  in  software  technology  and  training  sup¬ 
port  has  resulted  in  most  units  managing  the  day-to-day 
operation  with  manual  systems,  and  has  led  to  microcompu¬ 
ters  being  relegated  to  a  word  processor  role.  In  the 
next  few  pages,  I  will  explore  the  feasibility  and  imple¬ 
mentation  of  computerizing  much  of  the  information  hand¬ 
ling  processes,  in  particular,  the  standardization/evalua¬ 
tion  function  in  a  typical  TAG  unit.  I  will  also  explore 
further  automation  possibilities  gained  by  implementation 
of  the  proposed  management  information  system,  and  some  of 
the  considerations  which  should  be  addressed  concerning 
future  improvements,  capabilities,  and  system  maintenance. 

MANAGEMENT  INFORMATION  SYSTEMS 

Management  information  systems  are  designed  to  pro¬ 
vide  all  the  information  needs  of  management  through  a 
single  integrated  system.  Some  of  the  characteristics  of 
an  effective  management  information  system  are:  input 
considered  with  the  desired  output  in  mind,  information 
normally  maintained  at  the  functional  level  consolidated 
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into  an  integrated  database,  information  collected  is 
accessible  and  used  by  managers  in  more  than  one  func¬ 
tional  area  (8:578).  Information  systems  may  be  fully 
automated  or  entirely  manual  or  anywhere  in  between.  The 
quality  and  speed  of  the  information  flow  will  depend  on 
the  system  sophistication,  design,  and  quality  of  inputs. 
Manual  systems  generally  tend  to  be  slower  and  more  prone 
to  errors  than  automated  systems.  Timely  and  accurate 
Information  is  one  of  the  most  important  assets  available 
in  a  not-for-profit  organization  (20:497). 

The  first  step  in  designing  a  system  is  to  define 
what  the  resulting  output  should  be.  If  a  computerized 
system  will  be  used  to  replace  a  manual  system  a  detailed 
understanding  of  the  manual  system  is  essential.  Next, 
one  should  identify  the  inputs  required  to  produce  the 
desired  outputs.  The  design  of  file  structures  will  rely 
on  this  and  will  be  guided  by  the  overall  goal  of  the 
system.  The  third  step  in  designing  a  system  is  to  ident¬ 
ify  the  processing  functions.  For  example,  the  calcula¬ 
tions  to  be  performed  and  the  ways  information  will  be 
transferred  or  shared  among  different  program  elements. 

The  final  step  in  designing  a  system  is  to  identify  the 
ways  in  which  the  data  will  be  displayed  as  output,  either 
on  screen  or  on  paper  (9s3). 
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The  design  of  the  file  structures  will  determine  how 
easily  information  is  entered  and  retrieved  by  the  user. 
Some  of  the  goals  of  file  structure  design  are;  enhanced 


data  entry  and  retrieval,  efficient  use  of  disk  space, 
optimized  performance  from  the  operator's  point  of  view, 
maximized  accuracy  of  the  information  in  the  database,  and 
facilitates  maintenance,  modification,  and  expansion  of 
the  system  (9 s 24 ) . 

Once  the  system  has  been  defined,  and  file  structure 
determined  the  system  must  be  tested.  The  testing  should 
confirm  that  file  structures  will  accommodate  the  required 
data.  At  this  point  the  relationships  among  data  files 
should  also  be  refined.  The  accuracy  of  the  output  and 
capabilities  and  limitations  of  the  system  should  be  deter¬ 
mined.  Finally,  the  system  should  be  examined  to  insure 
default  values  are  used  where  possible  to  reduce  work  load 
and  increase  accuracy  (i;  1-7,  1-9). 

Spec  if  ic  Problem 

TACR  60-2  requires  unit  standardization/evaluation 
functions  complete  AF  Forms  8,  track  flight  evaluation 
requisite  completion,  flight  evaluation  completion,  flight 
and  emergency  procedures  evaluation  discrepancies,  action 
items,  and  unit  submitted  AF  Forms  847  status,  maintain  a 
current  index  of  publications  and  a  Flight  Crew  Informa- 


tion  File  (FCIF),  and  prepare  periodic  trend  analysis 
reports.  Currently,  each  unit  designs  its  own  management 
system  to  comply  with  the  requirements  of  the  regulation. 
These  systems  vary  from  entirely  manual  systems  to  part¬ 
ially  computerized  systems.  Tliere  is  no  common  management 
program  available  to  perform  the  required  tasks  and  pro¬ 
duce  reports  in  the  specified  format. 

A  command-wide  computer  program  for  standardization/ 
evaluation  management  is  needed  which  uses  current  equip¬ 
ment  and  available  software  to  accomplish  required  tasks, 
produce  required  reports,  and  reduce  man-hours  required  to 
manage  the  system. 


Importance  of  Research 

Presently,  most  unit  standardization/evaluation  or¬ 
ganizations  manually  perform  required  tasks  and  complete 
necessary  documentation.  Administrative  support  to  pro¬ 
duce  the  required  documentation  is,  in  most  units,  pro¬ 
vided  by  administrative  personnel  who  are  assigned  to 
other  positions  on  the  unit  manning  document,  and  who  have 
little  experience  with  word  processing  equipment  or  compu¬ 
ters  (3,^,6, 10,21).  Due  to  the  time-consuming  nature  of 
the  tasks  and  experience  levels  of  the  administrative 
specialist  many  of  the  official  records  are  inaccurate  and 
are  not  completed  in  the  required  time  (11,12,13,14,15,21). 


TACR  60-2  designates  unit  standardization/evaluation 
functions  as  the  office  of  primary  responsibility  (OPR) 
for  microcomputers  in  operations.  The  recent  implementa¬ 
tion  of  the  multicommand  regulation  60-2,  the  availability 
of  microcomputers,  and  common  requirements  provide  an  ex¬ 
cellent  opportunity  to  standardize  the  flight  evaluation 
management  program  Tactical  Air  Forces  (TAF)  wide  and 
reduce  the  man-hours  required  to  perform  these  tasks.  By 
implementing  a  computerized  information  system  and  perhaps 
later  networking  the  system,  better  and  more  accurate  data 
could  be  made  available  to  intermediate  and  MAJCOM  level 
headquarters  managers.  This  new  ability  will  enhance  the 
overall  capability  of  the  standardization  function  and 
free  flight  examiners  to  concentrate  on  flight  and  combat 
related  areas. 

Research  Questions 

In  order  to  develop  the  necessary  computer  program, 
produce  the  required  reports,  and  Identify  benefits  of 
implementation  the  following  questions  must  be  answered. 

1.  What  are  the  specific  requirements  of  the  program? 

2.  What  is  the  level  of  computer  expertise  of  the 
end  users  of  the  program? 

3.  Are  there  any  hardware  limitations  which  would 
prevent  the  use  of  such  a  program? 
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4.  What  future  possibilities  will  result  if  the 
proposed  system  is  implemented? 


5.  How  will  the  intermediate  and  MAJCOM  headquarters 
benefit  by  the  implementation  of  the  proposed 
system? 


Thesis  Organization 


This  research  effort  required  the  development  of  a 
dBase  III  Plus  management  information  system  for  use  by 
TAP  standardization/evaluation  functions.  In  order  to 
accurately  identify  the  user  needs  and  specific  require¬ 
ments  this  effort  also  included  historical  as  well  as 
investigative  research.  This  thesis  is  organized  in  the 
following  order. 

Chapter  I:  Introduction 

Chapter  II:  Methodology 

Chapter  III:  Findings  and  Discussion 


Chapter  IV 
Chapter  V 
Appendix  A 
Appendix  B 
Appendix  C 
Appendix  D 
Appendix  E 


Program  Documentation 
Conclusions  and  Recommendations 
Program  Coding 
Glossary  of  Acronyms 
Definition  of  Terms 
Interview  Questions 
Desk  Guide 


II.  Metho  do  logy 


Particular  Method 

In  order  to  answer  the  research  questions,  and  solve 
the  stated  problem  the  specific  needs  of  the  end  user  must 
be  Identified.  The  final  product  is  to  be  a  computer¬ 
ized  management  program  capable  of  operating  on  an  MS-DOS 
based  microcomputer  system.  The  program  should  be  simple 
enough  to  allow  novice  computer  users  to  effectively  use 
the  system,  yet  comprehensive  enough  to  meet  the  require¬ 
ments  of  TACR  60-2. 

To  accomplish  the  stated  task,  the  first  step  was  to 
complete  a  literature  review  of  the  applicable  regula¬ 
tions,  formal  standardization/evaluation  Inspection  re¬ 
ports,  management  Information  design  references,  and  char¬ 
acteristics  of  the  dBase  III  Plus  software  package  (11- 
19).  This  provided  the  specific  requirements,  a  histori¬ 
cal  basis  of  the  problem,  guidance  for  system  design,  and 
insight  Into  the  applicability  of  the  dBase  III  Plus 
program  capabilities.  Next,  interviews  with  the  intended 
users  were  conducted  to  determine  their  needs.  Third,  a 
dBase  III  Plus  program,  which  is  menu  driven  and  screen 
prompted,  was  written  and  documented  to  accomplish  the 
required  tasks  specified  in  TACR  60-2.  Last,  the  system 
was  demonstrated  at  the  annual  standardization  conference 
at  Headquarters  Ninth  Air  Force,  and  field  tested  at 
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tactical  a  fighter  unit.  The  system  was  validated  by  a 
group  of  management  Information  systems  experts,  which 
Included  Lt  Col  Richard  Peschke,  and  Professor  Daniel 
Reynolds,  from  the  AFIT  Schools  of  Systems  and  Logistics, 
and  Engineering. 

Database  Management  Requirements 

Air  Force  Regulation  (AFR)  60-1  and  TACR  60-2  pro¬ 
vided  the  specific  format  for  completing  the  AF  Forms  8. 

APR  60-9  detailed  AF  Forms  8  47  completion  procedures,  and 
TACR  60-2  specified  action  items  be  tracked  using  an 
open/closed  format  along  with  the  required  FCIF  format.  A 
literature  review  of  these  regulations,  commercially 
available  software  reference  manuals,  user's  guides,  and 
advanced  techniques  handbooks  relating  specifically  to 
dBase  III  Plus  established  a  basis  for  this  research 
(1,2, 3t5i9,22).  These  references  provided  program  coding 
and  documentation  techniques  as  well  as  information  on 
management  information  systems  design  in  general. 

Interviews  with  end  users  of  the  program  provided  I 

information  necessary  for  customizing  the  program,  and 
tailoring  to  the  user's  computer  experience  level.  These 
interviews  also  revealed  that  most  of  the  unit  stan/eval  I 

officers  possessed  at  least  basic  microcomputer  user 
skills.  Only  a  few  of  the  stan/eval  officers  interviewed 
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believed  they  were  intermediate  level  users  and  only  three 
believed  they  were  expert  level  users.  These  interviews 
also  revealed  the  range  of  peripherals  which  included 
printers,  monitors,  and  expansion  memory  that  the  program 
must  be  compatible  with. 

Reviews  of  formal  standardization/evaluation  inspec¬ 
tion  reports  from  Headquarters  Ninth  Air  Force  provided 
information  as  to  the  type  of  existing  management  systems. 
One  of  the  primary  objectives  of  the  project  was  to  take  a 
manual  system  which  had  been  rated  outstanding  by  the 
headquarters  inspection  team  and  convert  it  to  an  equally 
outstanding  computerized  system.  The  second  objective  was 
ease  of  use  of  the  program. 

The  outcome  of  this  research  was  a  decision  to  pro¬ 
duce  a  menu  driven,  screen  prompted  dBase  III  Plus  manage¬ 
ment  information  system  tailored  after  the  manual  system 
used  by  the  I87th  TFG,  Air  National  Guard  unit,  at  Dannelly 
Field,  Montgomery,  Alabama  (18). 

Database  Design 

A  system  was  designed  which  incorporated  an  existing 
computerized  testing  program  produced  by  Hq  TAG,  and  ori¬ 
ginal  programming  in  dBase  III  Plus  to  meet  the  require 
ments  of  Air  Force  and  Tactical  Air  Command  Regulations. 

The  program  is  simple  enough  to  use  that  personnel  with 
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little  or  no  m icrocooputer  expertise  may  effectively  op¬ 
erate  the  system. 

The  system  is  designed  as  an  interactive  database 
which  accepts  input  from  the  user  in  response  to  screen 
prompted  questions  for  both  data  entry  and  retrieval.  The 
system  accesses  all  required  files  and  exchanges  informa¬ 
tion  between  files  as  necessary.  The  data  is  indexed 
rather  than  being  sorted  to  increase  speed  of  execution. 
Required  forms  and  reports  are  generated  as  a  result  of 
selecting  the  appropriate  menu  option.  The  system  is 
designed  to  the  maximum  extent  possible  to  accept  only  the 
proper  type  and  format  data. 

Interviews 

Unstructured  interviews  with  the  numerous  Ninth  Air 
Force  unit  chiefs  of  standardization/evaluation  were  con¬ 
ducted  to  determine  user  needs  and  desires  for  an  auto¬ 
mated  program.  A  working  rapport  with  these  individuals 
had  been  developed  over  the  past  four  years  which  enhanced 
the  environment  for  Information  flow.  Face-to-face  inter¬ 
views  were  conducted  over  the  past  four  years  dealing 
specifically  with  standardization/evaluation  programs. 
Telephone  interviews  conducted  over  the  past  four  months 
narrowed  the  topic  to  automation  of  the  programs,  and  also 
served  to  update  the  information  gained  through  the  face- 
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to-face  interviews.  Some  of  the  advantages  of  conducting 
personal  interviews  include  the  depth  and  detail  of  the 
information  gained,  and  the  ability  to  observe  and  gain 
supplemental  information.  The  primary  disadvantage  of 
face-to-face  interviewing  is  the  cost  (7:l60).  The  pri¬ 
mary  responsibility  of  the  interviewer  prior  to  this  re¬ 
search  had  been  to  investigate  and  evaluate  the  standard¬ 
ization/evaluation  programs  of  all  units  which  reported  to 
HQ  Ninth  Air  Force.  Drawing  on  this  background  and  sup¬ 
plementing  the  information  gained  with  telephone  updates, 
additional  cost  were  negligible,  yet  the  results  of  the 
Interviews  were  very,  productive. 

The  ability  of  the  interviewer  and  respondents  to 
communicate  in  the  same  terms  and  at  the  same  level  on 
program  specifics  enhanced  the  overall  information  flow. 
This  information  flow  resulted  in  the  accurate  identifica¬ 
tion  of  program  design  parameters.  Sample  interview  ques¬ 
tions  are  shown  in  Appendix  C. 

Field  Test 

Testing  of  the  system  was  accomplished  locally  at  an 
Air  National  Guard  A-7  unit.  System  acceptance  and  util¬ 
ity  was  determined  as  a  result  of  these  test.  Suggested 
changes  and  improvements  were  identified  and  adopted  as 
much  as  possible,  and  the  program  was  then  submitted  for 


final  validation  by  the  AFIT  panel  of  management  informa¬ 
tion  systems  experts. 

Validat  ion 

The  validation  process  for  the  automated  standardiza¬ 
tion/evaluation  management  program  began  with  a  demonstra¬ 
tion  of  the  program  at  the  annual  standardization/evalua¬ 
tion  conference  at  HQ  Ninth  Air  Force.  Unit  chiefs  of 
standardization/evaluation  were  given  the  opportunity  to 
view  the  program  in  operation  and  then  allowed  to  actually 
get  hands-on  training.  Inputs  from  this  conference  were 
accepted  and  changes  to  the  program  made  where  possible. 
Field  tests  of  the  program  were  accomplished  after  refine¬ 
ments  had  been  made,  and  again  inputs  and  suggestions 
accepted*  Finally,  the  program  was  submitted  to  a  panel 
of  management  information  systems  experts  from  the  Air 
Force  Institute  of  Technology  for  final  validation  and 
verification . 
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III.  Findings  and  Discussion 

The  five  research  questions  identified  earlier  were 
considered  to  be  the  primary  concerns  in  producing  a 
management  system  capable  of  meeting  the  needs  of  TAP 
Standardization/Evaluation  organizations.  The  answers  to 
those  questions  are  presented  in  the  following  pages. 

Requirements 

Question  1:  What  are  the  specific  requirements  of  the 
program? 

The  most  Important  requirement  of  the  proposed  prog¬ 
ram  was  to  make  the  management  of  unit  standardization/ 
evaluation  functions  easier.  MCR  60-2  details  the  spe¬ 
cific  requirements  of  the  unit  standardization/evaluation 
functions  which  include:  aircrew  requisite  tracking, 
aircrew  flight  evaluation  tracking  and  documentation,  FCIF 
program  management,  AF  Forms  347  program  management,  air¬ 
crew  trend  analysis  program  management,  and  standardiza¬ 
tion/evaluation  board  program  management.  These  areas 
demand  routine  and  repetitive  actions  by  standardization/ 
evaluation  personnel.  Although  the  specific  program  re¬ 
quirements  are  identified  in  MCR  60-2  the  methods  of 
program  execution  are  left  to  the  individual  units.  The 
repetitive  nature  of  these  tasks  lend  themselves  to  auto¬ 
mation. 
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Most  units  contacted  were  using  a  combination  of 
manual  and  automated  systems.  Almost  all  Ninth  Air  Force 
units  manually  produced  standardization/evaluation  program 
documentation.  This  is  a  process  which  tends  to  be  time 
consuming  and  error-prone.  The  proposed  program  should 
reduce  both  the  time  required  to  provide  the  required 
documentation  and  the  number  of  errors.  This  is  accomp¬ 
lished  by  using  preformated  screens  and  default  values  as 
much  as  possible  for  data  entry.  The  proposed  program 
also  facilitates  editing,  so  when  errors  are  detected 
changes  can  be  made  easily. 

Previous  efforts  to  produce  an  automated  standardiza¬ 
tion/evaluation  management  program  have  resulted  in  low 
acceptance  by  the  field.  The  primary  reasons  for  the  less 
than  enthusiastic  acceptance  were  inflexibility  and 
difficulty  of  use  for  novice  computer  users.  The  proposed 
program  presents  information  in  a  format  familiar  to  the 
user  and  operates  by  response  to  screen  prompts.  Flexi¬ 
bility  was  Incorporated  by  allowing  the  user  to  input  the 
desired  default  settings. 

Computer  E xper tise  of  U sers 


Question  2:  What  is  the  level  of  computer  expertise  of 
the  end  users  of  the  program? 


Personal  interviews  with  the  chiefs  of  standardiza- 
tion/evaluation  for  Ninth  Air  Force  units  revealed  most 
functions  were  manned  with  personnel  which  possessed  at 
least  basic  computer  skills.  Very  few  units  indicated 
they  were  manned  with  either  no  computer  expertise  or  with 
expert  level  users.  All  units  indicated  a  willingness  to 
use  an  automated  system  if  it  were  user-friendly.  The 
178th  TFG  was  selected  as  a  test  unit  for  the  program  for 
both  its  proximity  to  AFIT  and  the  minimum  computer  ex¬ 
pertise  of  the  chief  of  standardization/evaluation. 

Hardware /Software  Limitations 

Question  3s  Are  there  any  hardware/software  limitations 

which  would  prevent  the  use  of  such  a  program? 

The  proposed  program  requires  as  a  minimum  an  MS-DOS 
compatible  system  with  at  least  256K  RAM,  two  floppy  disk 
drives  or  one  floppy  and  one  hard  disk  drive,  a  monitor, 
keyboard,  and  printer  and  dBase  III  Plus.  Several  hard¬ 
ware  and  software  limitations  were  identified  during  this 
research  effort.  Several  active  duty  units  continue  to 
use  Cromemco  micro-computers  which  are  not  MS-DOS  compat¬ 
ible.  These  older  systems  are  being  replaced  with  Zenith 
Z-248  systems  which  are  MS-DOS  compatible.  Some  Air 
National  Guard  and  Air  Force  Reserve  units  still  use  the 
Zenith  Z-100  and  Z-120  computers.  These  systems  are  cap¬ 
able  of  executing  the  proposed  program  only  after  a  modi- 
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fication  kit  has  been  installed  in  the  system  to  make  it 
MS-DOS  compatible.  The  majority  of  units  surveyed  either 
had  systems  capable  of  executing  the  proposed  pro 
gram  or  had  a  new  system  on  order.  However,  most  units 
did  not  have  dBase  III  Plus. 

If  the  proposed  program  were  distributed  in  a  com¬ 
piled  version  the  units  would  not  require  dBase  III  Plus 
to  execute  the  program.  If  the  program  were  distributed 
as  source  code  each  unit  would  be  able  to  further  custom¬ 
ize  the  program  to  meet  unit  specific  needs,  but  would 
require  dBase  III  Plus  to  execute  the  program. 

Units  which  elect  to  use  word  processing  programs  as 
a  text  editor  other  than  the  dBase  III  Plus  text  editor 
may  find  the  program  does  not  execute  properly.  For 
example  WordStar  version  4.0  does  not  allow  the  user  to 
modify  text  after  it  has  been  saved.  WordStar  3.31  on  the 
other  hand  executes  flawlessly.  Other  text  editors  may 
exhibit  similar  anomalies.  Also,  the  automatic  word  wrap¬ 
around  feature  of  any  text  editor  will  cause  page  format 
problems  If  used.  Each  line  of  text  must  be  ended  with  a 
carriage  return.  Finally,  the  program  will  automatically 
save  data  only  if  exited  by  using  the  main  menu  exit 
function.  Serious  file  damage  could  result  if  the  proper 
exit  mode  is  not  used. 
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Future  Enhancements 


Question  4;  What  future  possibilities  will  result  if  the 
proposed  system  is  implemented? 

As  the  proposed  program  becomes  more  widely  used  and 
customized  by  operational  units  better  ways  of  performing 
the  tasks  should  evolve.  Also,  new  tasks  may  be  added  as 
the  program  matures  which  would  give  the  program  expanded 
capability.  One  possibility  for  enhancement  would  be 
computer  generated  forma  vice  using  preprinted  forms. 

This  capability  currently  exists,  but  computer  generated 
forma  have  not  been  approved  for  use  by  Air  Force  at  this 
writing.  Another  enhancement  might  be  an  on-line  interac¬ 
tive  help  option.  Currently  available  are  commercial 
products  which  would  allow  two  users  to  access  and  edit 
data  simultaneously  V la  modem.  This  would  be  extremely 
beneficial  to  intermediate  and  MAJCOM  personnel  trying  to 
answer  unit  specific  question  on  a  particular  evaluation 
or  form. 

Evaluation  discrepancy  data  could  be  transmitted  to 
the  intermediate  or  MAJCOM  for  compilation  to  identify 
training  deficiencies  command  wide.  This  data  could  be 
reviewed  periodically  by  aircraft  type,  by  unit,  or  by 
type  evaluation  to  more  rapidly  identify  adverse  trends. 
This  option  should  be  used  as  a  management  tool  to  help 
Increase  readiness  and  not  as  an  inspection  system.  On 
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the  other  hand,  AF  forms  8  and  AF  forms  847  data  could  be 
transmitted  to  the  numbered  air  forces  just  prior  to 
formal  inspections  and  these  data  inspected  prior  to  the 
arrival  of  the  inspection  team.  This  option  should  allow 
Inspection  teams  to  reduce  the  number  of  personnel 
required  to  deploy  per  Inspection.  Other  possibilities 
for  program  enhancement  will  inevitably  arise  as  the  sys¬ 
tem  matures. 

MAJCOM/ Intermediate  HQ  Benefits 

Question  5:  How  will  the  intermediate  and  MAJCOM  headquar¬ 
ters  benefit  by  the  implementation  of  the 
proposed  system? 

In  addition  to  the  possibilities  already  discussed, 
the  MAJCOM  and  intermediate  headquarters  would  experience 
other  benefits  by  implementation  of  the  proposed  system. 
Since  unit  standardization/evaluation  personnel  would 
spend  less  time  on  the  administrative  aspects  of  their  Job 
more  time  could  be  devoted  to  enhancing  readiness  and 
training.  Also,  as  information  becomes  more  easily 
accessed  greater  dissemination  becomes  possible.  The  more 
people  that  know  about  a  problem  generally  the  quicker  the 
problem  is  resolved.  Time  and  information  are  two  of  the 
Air  Forces  greatest  assets.  This  system  potentially  could 
save  time  and  make  more  information  available  to  managers 
at  all  levels.  The  conservation  of  assets  and  increased 
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readiness  capability  could  be  the  greatest  benefits  for 
all  levels  of  command. 

Program  Development 

To  determine  the  needs  and  desired  program  capabil¬ 
ities  the  following  tasks  were  accomplished.  First,  MCR 
60-2  Vol  I  was  studied  and  requirements  outlined.  Those 
requirements  deemed  appropriate  for  automation  were  ex¬ 
amined  further  to  determine  the  input  and  output  required. 
The  majority  of  program  elements  center  on  the  completion 
of  the  AF  form  3.  Requisite  tracking  and  documentation, 
emergency  and  flight  evaluation  tracking  and  documenta¬ 
tion,  trend  analysis,  and  standardization/evaluation 
flight  examiner  (SEFE)  objectivity  all  use  completed  AF 
forms  8  as  source  documents. 

Next,  unstructured  interviews  with  the  chiefs  of 
standardization/evaluation  for  Ninth  Air  Force  units  were 
conducted.  Questions  asked  during  these  interviews  are 
included  in  Appendix  D.  These  interviews  were  used  to 
determine  the  types  of  hardware  and  software  being  used  in 
the  field,  the  computer  experience  level  standardization/ 
evaluation  personnel,  and  the  amount  of  administrative 
support  available  to  accomplish  routine  tasks.  Although 
these  were  the  primary  issues  discussed  during  the  inter¬ 
views,  in  many  instances,  further  discussion  identified 
additional  system  capabilities  desired  by  the  users. 

After  designing  the  initial  program  structure,  prog- 
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ram  coding  began  in  earnest.  The  program  was  designed  in 
modular  form  with  each  module  being  accessed  from  the  main 
menu.  The  prototype  program  was  completed  in  time  to 
be  demonstrated  at  the  annual  Ninth  Air  Force  standardiza¬ 
tion/evaluation  conference.  Representatives  from  almost 
every  unit  in  Ninth  Air  Force  as  well  as  representatives 
from  the  National  Guard  Support  Center  and  Headquarters 
Air  Force  Reserves  were  shown  the  program  and  were  asked 
to  make  comments  on  program  elements.  An  example  of  the 
handout  provided  at  the  conference  is  included  in  Appendix 
D.  This  phase  of  the  project  proved  to  be  Invaluable. 

The  program  demonstration  provoked  a  "brain  storming"  and 
"what  if  analysis"  which  resulted  in  reprograming  certain 
elements.  The  changes  made  as  a  result  of  the  conference 
gave  the  program  additional  capabilities  and  many  more 
default  values  which  resulted  in  a  much  more  user-friendly 
product . 

Included  in  program  development  was  an  emphasis  on 
producing  a  system  that  could  be  used  with  little  or  no 
training.  To  accomplish  this,  the  screens  were  designed 
to  appear  as  standard  forma  used  by  standardization/ 
evaluation  personnel.  Also,  input  controls  were  used 
wherever  possible  to  reduce  errors  by  the  users. 

Specifics  of  each  program  element  are  discussed  in  Chapter 
IV,  Program  Documentation.  Actual  program  code,  shown  in 
Appendix  A,  uses  a  variety  of  approaches  to  accomplish  the 
desired  tasks. 
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Program  Documentation 


The  Automated  Standardization/Evaluation  Management 
Program  was  written  using  Ashton-Tate*s  dBase  III  Plus 
database  management  software.  All  program  coding  is  in¬ 
cluded  in  Appendix  A.  An  overall  program  organization 
chart  showing  the  basic  program  layout  is  depicted  in 
Figure  1.  As  can  be  seen  in  Figure  1,  the  program  consist 
a  startup  program,  a  main  menu  program,  and  seven  menu 
selectable  options  from  the  main  menu.  Each  of  the  seven 
user  selectable  options  also  presents  the  user  with 
additional  menu  selectable  options  which  guide  the  user 
through  the  system.  Each  option  will  automatically  return 
the  user  to  the  main  menu  upon  completion  of  that  option. 
All  memory  resident  programs  must  be  removed  for  the  TAC 
testing  program  to  be  accessed  through  this  program.  An 
error  message,  "NOT  ENOUGH  MEMORY",  will  appear  in  the 
event  memory  resident  programs  are  not  removed.  The  TAC 
testing  program  will  continue  be  available  to  the  user 
outside  the  ffl2magement  program  if  desired. 
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8UPEVALS 


Main  Menu 


The  Main  Menu  program  is  entered  automatically  when 
dBase  III  Plus  is  executed.  The  Main  Menu  screen,  shown 
in  Figure  2,  allows  the  user  to  choose  the  desired  option 
to  execute.  The  program  will  accept  only  choices  (1) 
through  (7).  Any  other  attempted  entry  will  simply  exe¬ 
cute  the  Main  Menu  option  again.  To  insure  the  integrity 
of  the  databases  the  user  must  exit  the  program  from  this 
screen.  Any  attempted  system  shutdown  from  any  other 
point  could  result  in  Irrecoverable  database  damage. 


STAN/EVAL 

MANAGEMENT  PROGRAM 

1. 

ADD  DATA 

2.  CHANGE  DATA 

3. 

VIEW  DATA 

4.  DELETE  DATA 

5. 

PRINT  OPTIONS 

6.  TESTING  PROGRAM 

7. 

SET  DEFAULTS 

8.  EXIT  PROGRAM 

Figure  2 
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Add  Data 


A  selection  of  choice  (1)  in  the  Main  Menu  will 
display  the  Add  Data  menu  shown  in  Figure  3*  The  user  is 
given  a  choice  of  the  type  data  he  wishes  to  add.  Once  an 
add  option  has  been  selected  the  user  may  continue  adding 
records  in  that  option  until  he  press  <Retupn>  with  the 
cursor  in  the  first  field  of  a  blank  record.  When 
<Return>  is  pressed  the  program  moves  the  user  back  to  the 
Main  Menu  screen. 

Each  menu  option  under  the  Add  Data  Menu  presents  the 
user  with  an  easy-to-use  data  entry  screen  or  other  menu 
selectable  options  as  shown  in  Figure  4.  Default  values 
and  automatic  file  updates  where  incorporated  to  the  maxi¬ 
mum  extent  possible  to  reduce  errors  and  enhance  the  use- 
computer-interface. 
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Figure  3 
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ADD  FCIF  ITEMS 


1. 
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2. 

SUPPLEMENT 

3. 

CHANGE 

4. 

IMC 

5. 

READ  FILE  ITEMS 

RETURN  FOR  MAIN  MENU 

Figure  4 
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Change  Data 

A  selection  of  choice  (2)  in  the  Main  Menu  will 
display  the  Change  Data  menu  as  shown  in  Figure  5-  The 
user  is  given  a  choice  of  the  type  data  he  wishes  to  edit. 
Once  a  change  option  has  been  selected  the  program  will 
display  an  index  of  the  desired  data  and  prompt  the  user 
for  the  desired  record  to  edit.  The  user  is  limited  to 
editing  only  one  record  at  a  time  to  help  reduce  errors 
and  confusion.  Once  the  user  has  made  the  desired  changes 
he  can  page  through  the  record  to  the  end  of  the  record  at 
which  point  he  will  be  returned  to  the  Main  Menu. 
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FCIF 

3. 

AF  FORM  847 
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Figure  5 
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View  Data 


A  selection  of  choice  (3)  in  the  Main  Menu  will 
display  the  View  Data  menu  as  shown  in  Figure  6.  The  user 
is  given  a  choice  of  the  data  to  be  displayed  on  the 
screen.  Once  an  option  is  selected  an  index  of  that  type 
data  will  appear  or  other  menu  selectable  options  and  the 
user  must  select  the  specific  record  or  data  to  be  dis¬ 
played.  No  data  input  or  editing  is  permitted  in  this 
program  mode.  All  screens  reflect  either  a  standard  Air 
Force  form  or  an  easy-to-use  format  where  no  standard 
forms  are  applicable. 
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SUPPLEMENTARY  EVALUATIONS 
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Figure  6 
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Delete  Data 


Selecting  choice  (4)  in  the  Main  Menu  will  move  the 
program  to  the  Delete  Data  menu  as  shown  in  figure  7.  The 
user  is  given  the  opportunity  to  select  the  type  data 
which  he  wishes  to  delete.  After  selecting  the  desired 
option,-  other  menu  selectable  options  or  an  index  of  the 
data  appears.  At  this  point  the  user  selects  the  record 
he  wishes  to  delete  and  the  data  in  that  record  will  oe 
displayed  on  the  screen  in  a  familiar  format.  The  program 
queries  the  user  to  insure  that  the  record  displayed  is 
indeed  the  one  the  user  wishs  to  delete.  If  the  user 
indicates  that  the  displayed  recorded  is  to  be  deleted  the 
program  permanently  removed  that  information  from  the 
databases.  If  the  user  indicated  the  displayed 
information  should  not  be  deleted,  by  not  affirming 
deletion,  the  program  returns  to  the  Main  Menu. 


DELETE  DATA 
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2. 

FCIF 

3. 

AF  FORM  847 
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AF  FORM  8 
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PRESS  RETURN  FOR  MAIN  MENU 

Figure  7 
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Print  Options 

A  selection  of  choice  (5)  in  the  Main  Menu  will 
display  the  Print  Options  menu  shown  in  Figure  8.  Again, 
when  the  user  makes  a  selection  from  the  Print  Options 
menu  other  menu  selectable  options  or  an  index  of  records 
will  appear  for  the  user  to  chose  from.  Once  the  desired 
data  for  printing  has  been  selected  that  data  will  be 
output  to  the  default  printer.  All  printers  should  be 
configured  to  ten  pitch  mode  for  proper  print  alignment. 
Once  the  data  has  been  printed  the  program  returns  to  the 
Main  Menu. 
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Figure  8 


SET  DEFAULTS 


The  Set  Defaults  option  allows  the  user  to  define  the 
types  of  evaluations  to  be  completed  by  unit  members. 

Also,  using  this  option  the  user  can  define  the  discrep¬ 
ancy  areas  for  both  flight  and  emergency  procedures  eval¬ 
uations.  The  three  default  areas  shown  in  Figure  9  must 
be  set  prior  to  attempting  to  generate  an  AF  Form  8.  The 
management  program  attempts  to  access  these  settings  when 
an  AF  Form  8  is  generated.  An  irrecoverable  error  will 
occur  in  the  event  default  files  do  not  exist. 


SET  DEFAULTS 


1.  TYPE  EVALUATIONS 

2.  FLIGHT  EVAL  DISCREPANCIES 

3.  EPE  DISCREPANCIES 

RETURN  FOR  MAIN  MENU 


Figure  9 
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Testing  Program 


When  option  (6)  has  been  selected  in  the  Main  Menu 
the  standard  Tactical  Air  Command  Testing  Program  will  be 
executed  if  available.  This  program  was  written  in  BASICA 
and  compiled  by  the  standardization/evaluation  personnel 
at  HQ  TAC/DOV.  The  testing  program  is  a  stand-alone 
program  which  is  called  for  execution  by  the  proposed 
management  program.  The  testing  program  has  been  docu¬ 
mented  and  released  for  use  by  HQ  TAC/DOV.  Therefore,  the 
testing  program  will  not  be  discussed  further  here. 


Program  General 


Unit  customization  of  the  standardization/evaluation 
management  program  is  encouraged  to  enhance  program  util¬ 
ity.  Users  should  thoroughly  test  any  changed  program 
options  before  relying  too  heavily  on  it  for  absolute 
program  management.  Advanced  dBase  III  Plus  users  will 
enjoy  the  advantage  of  additional  data  manipulation,  but 
should  be  cautious  not  to  inadvertently  collapse  databases 
or  indexes.  The  program  was  designed  to  automatically 
close  and  save  data  files  after  each  program  option  has 
been  executed.  Safeguards  were  incorporated  whenever 
possible  to  prevent  errors  and  inadvertent  lose  of  data. 


V.  Conclusion  and  Recommendations 


Cone lus ions 


This  thesis  began  by  becoming  intimately  familiar 
with  all  aspects  of  the  TAC  Standardization/Evaluation 
process.  The  management  and  report  requirements  were 
identified,  and  classified  as  being  candidates  for  automa¬ 
tion.  The  feasibility  of  developing  a  microcomputer-based 
software  program  was  determined.  Next,  a  manual  system 
was  identified  within  Ninth  Air  Force  which  was  considered 
to  be  outstanding  by  the  headquarters  inspection  team. 

This  manual  system  was  then  transformed  into  an  automated 
system  and  demonstrated  at  the  Ninth  Air  Force  annual  Stand¬ 
ardization/Evaluation  Conference.  Recommendations  were 
solicited  from  the  unit  chiefs  of  standardization/evalua¬ 
tion  and  were  incorporated  into  the  program  when  deter¬ 
mined  to  be  a  positive  addition. 

The  literature  research  revealed  that  some  units  were 
currently  using  locally  developed  automated  systems  which 
were  unit  specific  in  most  cases.  Telephone  interviews 
with  unit  chiefs  of  standardization/evaluation  revealed 
that  other  units  had  attempted  to  adopt  the  existing 
programs,  but  with  less  than  satisfactory  results.  One 
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area,  formal  testing,  had  been  automated  by  personnel  at 
headquarters  Tactical  Air  Command  and  was  considered  ex¬ 
tremely  useful.  The  proposed  program  facilitates  access¬ 
ing  the  TAG  testing  program  through  a  menu  option. 


Recommendations 


During  the  development  of  this  program  the  tactical 
units  of  the  Air  National  Guard  held  an  operations  micro¬ 
computer  conference  in  Iticson,  Arizona.  The  main  topic  of 
discussion  at  this  conference  was  the  standardization  of 
software  among  ANG  units.  It  was  determined  that  dBase 
III  Plus  would  be  the  primary  database  management  software 
for  development  of  applications  programs.  Although  the 
Air  National  Guard  has  initiated  steps  to  standardize 
software,  the  active  duty  and  Air  Force  Reserves  were  not 
included  in  the  initial  effort.  I  believe  all  branches 
would  benefit  by  a  unified  effort  to  produce  standardized 
applications  programs.  The  aim  of  the  program  developed 
during  this  study  was  to  provide  Just  that,  a  common 
starting  point  for  all  branches  to  Improve  upon  and  refine 
to  meet  specific  needs. 

Other  Applications.  Although  changes  to  the  program 
would  be  required,  candidates  for  program  use  would  in¬ 
clude  the  following: 

1.  Military  Airlift  Command  (MAC).  The  standardiza¬ 
tion/evaluation  process  for  this  major  command  was  not 
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examined  in  this  research,  but  the  basic  process  is  siml> 
lar  to  that  of  Tactical  Air  Command.  Additional  aircrew 
positions  would  need  to  be  facilitated  for  use  by  MAC,  but 
the  basic  program  would  provide  an  excellent  starting 
point  for  further  research. 

2.  Strategic  Air  Command  (SAC).  The  same  arguments 
for  MAC  also  apply  to  SAC.  Additionally,  a  similar  prog¬ 
ram  could  be  developed  for  the  standardization/evaluation 
process  of  SAC  missile  crew  members. 

3.  United  States  Air  Forces  Europe  (USAFE),  Pacific 
Air  Command  (PACAF),  and  Alaskan  Air  Command  (AAC)  could 
possibly  adopt  this  program  for  use  without  having  to  make 
changes . 

Interface  Opportunities.  Other  areas  in  operational 
squadrons  which  could  be  automated  an  included  in  an 
integrated  management  information  system  include:  ground 
training,  flying  training,  life  support  training,  intelli¬ 
gence  training,  weapons  training,  and  ancillary  training. 
These  areas  provide  opportunities  to  reduce  manpower  re¬ 
quirements,  eliminate  redundant  information,  and  increase 
productivity.  A  fully  integrated  system  would  place  an 
enormous  amount  of  information  at  the  finger  tips  of 
squadron  supervisory  personnel. 

Customer  Support.  Primary  responsibility  for  cus¬ 
tomer  support  should  be  provided  at  the  lowest  level 
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possible.  For  example,  base  data  automation  centers, 
numbered  air  force  directorates  of  standardization/evalua¬ 
tion,  or  MAJCOM  directorates  of  standardization/evalua¬ 
tion.  Other  user  needs  were  Identified  during  the 
research  effort,  but  were  not  Included  In  this  version  of 
the  program  due  primarily  to  time  limitations. 

Imp lementatlon.  The  Standardization/Evaluation  Mana¬ 
gement  Program  provides  unit  personnel  an  opportunity  to 
produce  required  program  documentation  with  much  less 
effort,  and  at  the  same  time  reduce  the  number  of  errors. 
The  conservation  of  manpower  and  Increased  accessibility 
to  Information  will  allow  more  efficient  management  of 
this  functional  area. 


♦STARTUP  PR06RAH* 
***************** 


CHOICE  -  0 
CLEAR 


SET  TALK  OFF 
SET  COLOR  TO  H/B+ 

CLEAR 

•  5,15  SAT  "TAC  STAH/EVAL; 
MAHA6EMEHT  PROGRAM  VERSIOR  1.0 

•  7.5  SAY  "Copyright  (c)  Bobby  M.; 

Robinson  1988.  All  Rights; 
Reserved."  .  , 

•  8.  5  SAY  "The  TAC  Stan/Eval ; 
Progran  Is  an  easy-to-use  prograa: 
designed" 

•  9,  5  SAY  "for  use  by  the  United: 
States  Air  Force.  Units  Bay; 
custoalze" 

•  10.  5  SAY  "this  prograa  to: 

Individual  unit  needs,  but  any: 
sale  or  ■onetary"  „  . 

$  11,  5  SAY  "exchange  Is  strictly: 
prohibited." 

? 

7 

? 

wait  "  Press  Any  Key  to; 

Execute  the  Stan/Eval  Program" 

*— -EXECUTE  MAIM  MENU  PROGRAM--* 

DO  MENU 


♦MAIN  MENU  PKOGMM* 

♦-STAN/EVAL  MANAGEMENT  PROGRAM—* 

♦—MAIN  MENU — * 

♦--SET  INITIAL  PROGRAM — * 

* — PARAMETERS—* 

SET  DATE  BRITISH 

SET  SCOREBOARD  OFF 

SET  HEADING  OFF 

SET  COLOR  TO  M/B+ 

SET  HEADING  OFF 

SET  STATUS  OFF 


♦ — CLOSE  FILES.  DATABASES,- 
♦— FORMATS.  AND  PROCEDURES- 

CLOSE  DATABASES 

CLOSE  PROCEDURE 


* 

* 


♦—START  DO  LOOP  FOR  MENU  CHOICE—* 


DO  WHILE  CHOICE  O  8 

CLEAR 

TEXT 

STAN  /  EVAL  MANAGEMENT  PROGRAM 


1.  ADD  DATA  2.  CHANGE  DATA 

3.  VIEW  DATA  4.  DELETE  DATA 

5.  PRINT  OPTIONS  6.  TESTING  PROGRAM 
7.  SET  DEFAULTS  8.  EXIT  PROGRAM 
ENOTEXT 

♦  . BET  user’s  CHOICE . * 

8  23,25  SAY  "ENTER  CHOICE"  GET; 
CHOICE: 

PICTURE  "9"  RANGE  1,8 

♦--DRAM  DOUBLE  LINES  AT—* 
♦—COORDINATES—* 

•  4.5  TO  4,70  DOUBLE 
»  1.5  to  15.70  DOUBLE 
READ 

♦—Branch  to  appropriate-—* 

♦ — prograa— -♦ 

DO  CASE 

CASE  CHOICE  -  1 

SET  PROCEDURE  TO  ADD.PRC 

DO  ADO.PRC 

CASE  CHOICE  -  2 

SET  PROCEDURE  TO  CHANGE.PRC 

DO  CHANGE.PRC 


CLEAR  SETS 
CASE  CHOICE  -  3 

SET  PROCEDURE  TO  VIEH.PRC 

00  VIEH.PRC 

CASE  CHOICE  -  4 

SET  PROCEDURE  TO  DELETE.PRC 

DO  DELETE.PRC 

CASE  CHOICE  «  5 

SET  PROCEDURE  TO  PRIRT.PRC 

DO  PRIRT.PRC 

CASE  CHOICE  -  6 

TAC  TESTIR6  PR06RAM— * 

RUM  T21 

CASE  CHOICE  -  7 

SET  PROCEDURE  TO  OEFAULT.PRC 

DO  OEFAULT.PRC 

CASE  CHOICE  -  8 

CLOSE  DATABASES 

CANCEL 

ENOCASE 

ENDOO  (Nh11«  choice  <  >  8) 

•-—Done  with  progrea.  Return—* 
*— to  Dot  Proapt.— * 

*ADO  DATA  PROCEDURE* 

*— START  ADO  PROCEDURE  MENU—* 
*— INITIALIZE  CHOICE  TO  ZERO — * 

CHOICE  -  0 

*— START  DO  LOOP  FOR—* 

*— APPROPRIATE  CHOICE—* 

DO  HHILE  CHOICE  <>  6 

CLEAR 

TEJCT 

ADD  DATA 

1.  INDIVIDUAL 

2.  FCIF 


4.  AF  FORM  8 

5.  ACTION  ITEMS 

6.  SUPPLEMENTARY  EVALUATIONS 
PRESS  RETURN  FOR  MAIN  MENU 


ENDTEXT 

*— -DRAW  DOUBLE  LINES  AT—* 

*— COORDINATES— * 

•  5.10  TO  5,60  DOUBLE 
B  2,10  TO  22.60  DOUBLE 

*— ENTER  USER'S  CHOICE—* 

B  24.  20  SAY  "ENTER  CHOICE”; 

GET  CHOICE; 

PICTURE  ”9*  RANGE  1.6 
READ 

*— START  EXECTUING  USER'S—* 
*— CHOICE— * 

*— OPEN  APPROPRIATE  FILES,—* 
*— INDEXES.  DATABASES  TO  APPEND' 

DO  CASE 

CASE  CHOICE  -  1 
USE  INOIV  INDEX  INDIV 
SET  FORMAT  TO  INDIV 
APPEND 

CASE  CHOICE  -  2 
DO  FCIF.PRC 

CASE  CHOICE  ■  3 
USE  F847  INDEX  F847 
SET  FORMAT  TO  F847 
APPEND 

CASE  CHOICE  -  4 
DO  F0RM8.PRC 

CASE  CHOICE  -  5 
USE  ACTION  INDEX  ACTION 
SET  FORMAT  TO  ACTION 
APPEND 

CASE  CHOICE  -  6 
USE  SUPEVAL  INDEX  SUPEVAL 
SET  FORMAT  TO  SUPEVAL 
APPEND 

ENDCASE 

* — RESET  VARIABLE  CHOICE—* 

* — EQUAL  TO  ZERO — * 

CHOICE  -  0 

* — CLOSE  OPEN  DATABASES — * 
CLOSE  DATABASES 
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3.  AF  FORM  847 


*CHANGE  DATA  PROCEDURE* 


* — IMITIALIZE  CHOICE  TO  ZERO—* 
CHOICE  «  0 

* — START  DO  LOOP  FOR—* 

*— APPROPRIATE  CHOICE—* 

DO  WHILE  CHOICE  <>  6 

CLEAR 

TEXT 

CHANGE  DATA 

1.  INDIVIDUAL 

2.  FCIF 

3.  AF  FORM  847 

4.  AF  FORM  8 

5.  ACTION  ITEMS 

6.  SUPPLEMENTARY  EVALUATION 
PRESS  RETURN  FOR  MAIN  MENU 

ENOTEXT 

*-DRAM  D0U8LE  LINES  AT  COORDINATES-* 

9  5,10  TO  S.60  OOUBLE 
8  2.10  TO  20.60  OOUBLE 

*— ENTER  USER'S  CHOICE—* 

f  22.  20  SAY  "ENTER  CHOICE"; 

GET  CHOICE; 

PICTURE  "9"  RANGE  1.6 
REAO 

*— START  EXECUTION  USER'S  CHOICE—* 
DO  CASE 

CASE  CHOICE  -  1 
DO  INDIV.CHG 

CASE  CHOICE  •  2 
DO  FCIF.CHG 

CASE  CHOICE  >  3 
DO  F847.CHG 

CASE  CHOICE  -  4 
DO  F0RM8.CHG 

CASE  CHOICE  -  5 
DO  ACTION.CHG 

CASE  CHOICE  -  6 
DO  SUPEVAL.CHG 

ENOCASE 


*— RETURN  TO  MAIN  MENU—* 

RETURN 

*— RESET  CHOICE  EQUAL  TO  ZERO—* 
CHOICE  -  0 

*— CLOSE  OPEN  DATABASES—* 

CLOSE  DATABASES 

* - RETURN  TO  MAIN  MENU—* 

RETURN 


*VIEU  DATA  PROCEDURE* 

*— START  VIEW  PROCEDURE  MENU—* 
*— INITIALIZE  CHOICE  TO  ZERO—* 

CHOICE  -  0 

*— START  DO  LOOP  FOR—* 

*— APPROPRIATE  CHOICE—* 

DO  WHILE  CHOICE  <>  9 

CLEAR 

TEXT 

VIEW  DATA 

1.  INDIVIDUAL 

2.  AF  FORM  8 

3.  AF  FORM  847 

4.  FCIF  INDEX 

5.  OPEN  ACTION  ITEMS 

6.  TRENDS 

7.  SEFE  OBJECTIVITY 

8.  REQUISITES/EVALUATIONS  DUE 

9.  SUPPLEMENTARY  EVALUATIONS 
PRESS  RETURN  FOR  MAIN  MENU 

ENDTEXT 

*— DRAW  DOUBLE  LINES  AT—* 

*— COORDINATES - * 

f  3.10  TO  3.60  OOUBLE 
9  0.10  TO  23.60  DOUBLE 

* — ENTER  USER'S  CHOICE—* 

ff  24.20  SAY  "ENTER  CHOICE"; 

GET  CHOICE; 

PICTURE  "9"  RANGE  1.9 
REAO 


39 


CLEAR 

*-START  EXECUTION  OF  USER'S  CHOICE-* 
•—OPEN  APPROPRIATE  FILES,—  * 

* — INDEXES.  DATABASES  TO  VIEW—* 

00  CASE 

CASE  CHOICE  -  1 
USE  INOIV  INDEX  INDIV 
DO  INDIV.VUE 

CASE  CHOICE  -  2 
USE  FORMS  INDEX  FORMS 
DO  FORMS.VUE 

CASE  CHOICE  •  3 
USE  FS47  INDEX  FS47 
DO  FS47.VUE 

CASE  CHOICE  -  4 
USE  FCIF  INDEX  FCIF 
DO  FCIF.VUE 

CASE  CHOICE  -  5 

USE  ACTION  INDEX  ACTION 

DO  ACTION.VUE 

CASE  CHOICE  -  6 
USE  FORMS  INDEX  FORMS 
DO  TRENO.VUE 

CASE  CHOICE  -  7 
USE  FORMS  INDEX  FORMS 
DO  OBJECT.VUE 

CASE  CHOICE  -  S 
USE  INOIV  INDEX  INOIV 
DO  EVALSOUE.VUE 

CASE  CHOICE  -  9 

USE  SUPEVAL  INDEX  SUPEVAL 

DO  SUPEVAL.VUE 

ENOCASE 

•—RESET  CHOICE  EQUAL — * 

* — TO  ZERO—* 

CHOICE  >  0 

•—CLOSE  OPEN  DATABASES—* 

CLOSE  DATABASES 
•—RETURN  TO  MAIN  MENU—* 

RETURN 


•DELETE  DATA  PROCEDURE* 


* - INITIALIZE  CHOICE  TO  ZERO - * 

CHOICE  -  0 

•—START  DELETE  PROCEDURE  LOOP—* 

DO  WHILE  CHOICE  <>  6 
CLEAR 


DELETE  DATA 

1.  INDIVIDUAL 

2.  FCIF 

3.  AF  FORM  S47 

4.  AF  FORM  S 

5.  ACTION  ITEM 

6.  SUPPLEMENTARY  EVALUATION 
PRESS  RETURN  FOR  MAIN  MENU 

ENDTEXT 

•—DRAW  DOUBLE  LINES  AT—* 
•—COORDINATES—* 

t  5,10  TO  S.60  DOUBLE 
•  2,10  TO  20,60  DOUBLE 

* — ENTER  USER'S  CHOICE—* 

S  22,20  SAY  ‘ENTER  CHOICE*; 

GET  CHOICE; 

PICTURE  *9‘  RANGE  1.6 
READ 

* — BEGIN  EXECUTION  OF—* 
•—USER'S  CHOICE — * 

00  CASE 

CASE  CHOICE  -  1 
DO  INOIV.DEL 

CASE  CHOICE  -  2 
DO  FCIF.DEL 

CASE  CHOICE  -  3 
DO  FS47.DEL 

CASE  CHOICE  -  4 
DO  FORMB.OEL 

CASE  CHOICE  -  5 
DO  ACTION.DEL 

CASE  CHOICE  -  6 
DO  SUPEVAL.DEL 

ENDCASE 

• — RESET  CHOICE  TO  ZERO — * 
CHOICE  -  0 

* — CLOSE  OPEN  DATABASES—* 
CLOSE  DATABASES 
•—RETURN  TO  MAIN  MENU—* 
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TEXT 


RETURN 


*PRINT  PROCEDURE* 


♦—START  PRINT  OPTIONS  MENU—* 

*  - INITIALIZE  CHOICE  TO  ZERO - * 

CHOICE  -  0 

♦—START  DO  LOOP  FOR—* 
♦—APPROPRIATE  CHOICE—* 

DO  WHILE  CHOICE  <>  7 

CLEAR 

TEXT 

PRINT  OPTIONS 

(1)  NOTIFICATION  LETTERS 

(2)  AF  FORM  8 

(3)  STAN/EVAL  BOARD 

(4)  REQUISITES/EVALUATIONS  DUE 

(5)  FCIF  INDEX 

(6)  AF  FORM  847 

PRESS  RETURN  FOR  MAIN  MENU 
ENOTEXT 

♦—ORAM  DOUBLE  LINES—* 

*— AT  COORDINATES—* 

9  5.10  TO  5,60  DOUBLE 
f  1,10  to  21,60  DOUBLE 

♦—ENTER  USER'S  CHOICE—* 

•  22,20  SAY  "ENTER  CHOICE* ; 

GET  CHOICE: 

PICTURE  "9"  RANGE  1.7 
READ 

♦-START  EXECUTION  OF  USER'S  CHOICE-* 
♦—OPEN  APPROPRIATE  FILES,—* 
♦—INDEXES,  DATABASES—* 

DO  CASE 

CASE  CHOICE  -  1 
DO  INDNOT.PRN 

CASE  CHOICE  -  2 
DO  F0RM8.PRN 

CASE  CHOICE  -  3 
DO  BOARD.PRN 

CASE  CHOICE  -  4 
DO  EVALSDUE.PRN 

CASE  CHOICE  -  5 
DO  FCIF.PRN 


♦—RESET  CHOICE  EQUAL  TO  ZERO—* 
CHOICE  -  0 

♦—CLOSE  OPEN  DATABASES—* 

CLOSE  DATABASES 

* - RETURN  TO  MAIN  MENU—* 

RETURN 


♦SET  DEFAULTS  PROCEDURE* 

*  - INITIALIZE  CHOICE  TO  ZERO - * 

CHOICE  -  0 

♦—START  DO  LOOP  FOR  APPROPRIATE—* 

DO  WHILE  CHOICE  <>  3 

CLEAR 

TEXT 

SET  DEFAULTS 

1.  TYPE  EVAULATIONS 

2.  FLIGHT  EVALUATION  DISCREPANCIES 

3.  EPE  DISCREPANCIES 
PRESS  RETURN  FOR  MAIN  MENU 

ENDTEXT 

♦-DRAW  DOUBLE  LINES  AT  COORDINATES-* 

•  5,10  TO  5,60  DOUBLE 

•  2,10  TO  15,60  DOUBLE 

*  . ENTER  USER'S  CHOICE . * 

9  24,20  SAY  "ENTER  CHOICE"; 

GET  CHOICE; 

PICTURE  *9*  RANGE  1.3 
READ 

♦-START  EXECTU1N6  USER'S  CHOICE-* 
♦-OPEN  APPROPRIATE  FILES.  INDEXES,-* 
*—  DATABASES  TO  APPEND—* 

DO  CASE 

CASE  CHOICE  -  1 
USE  TYPE  EVA 


CASE  CHOICE  -  6 
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00  F847.PRN 

ENOCASE 

APPEND 

CASE  CHOICE  -  2 

STORE  0  TO  NANSHER 
CLEAR 

•  5,5  SAY  '(1)  PILOT  DISCREPANCIES" 

•  6.5  SAY  "(2)  USO  DISCREPANCIES"; 

GET  MANSNER; 

PICTURE  "9"  RANGE  1.2 

READ 

00  CASE 

CASE  NANSHER  -  1 
USE  FLTUUPS  INDEX  FLTHUPS 
SET  FORMAT  TO  FLTHUPS 
APPEND 

CASE  NANSHER  -  2 

USE  HFLTUPS  INDEX  HFLTUPS 

SET  FORMAT  TO  HFLTUPS 

APPEND 

ENOCASE 

CASE  CHOICE  -  3 
STORE  0  TO  NANSHER 
CLEAR 

•  5,5  SAY  "tn  PILOT  DISCREPANCIES" 
9  6,5  SAY  "(2)  HSO  DISCREPANCIES"; 

GET  NANSHER: 

PICTURE  "9"  RANGE  1.2 

READ 

DO  CASE 

CASE  NANSHER  -  1 
USE  EPEHUPS  INDEX  EPEHUPS 
SET  FORMAT  TO  EPEHUPS 
APPEND 

CASE  NANSHER  -  2 

USE  HEPHUPS  INDEX  UEPHUPS 

SET  FORMAT  TO  HEPHUPS 


SET  FORMAT  TO  TYPE  EVA 
ENDCASE 

ENOCASE 

*— RESET  VARIABLE  CHOICE  EQUAL—* 
*— TO  ZERO—* 

CHOICE  -  0 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 
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APPEND  ********** 

*AF  FORM  8  CREATE  PROCEDURE* 


*— DECLARE  MENORY  VARIABLES  OPEN—* 
*— TO  ALL  WORK  AREAS—* 


SET  TALK  OFF 


PUBLIC  NTDATEl.  NT0ATE2.  NTDATE3.; 
MT0ATE4.  NTDATE5.  MTESTl.  NTEST2.; 
NTEST3,  MTEST4.  MTEST5.  MUPDATES,; 
MEXP.  HZONEl.  MZONE.  NOATEl.  MRANK 


PUBLIC  NAREAKANE.  HAREA.  NSUBAREA.; 
NCOUNT.  NRECORD,  HLNAME,  NFNAHE^; 
NNI.NSSAN.  NLOCAT.  MORGAN.  NTYPE.; 
NCONTNUM.  MSCOREl.  HSCORE2.NSCORE3.; 
MSC0RE4.  NSC0RE5,  MEXPIREl,; 
NEXPIRE2.NEXPIRE3.  NACFT.  NOBX.; 
MCBX.  MINX.  MEPE.  MIRC.  MUPDATES.; 
MZONE.  MTAC.  MPOS 


*— INITIALIZE  MEMORY  VARIABLES—* 


STORE  • 
STORE  • 
STORE  " 
STORE  0 
STORE  0 
STORE  • 
STORE  • 
STORE  • 
STORE  " 
STORE 
STORE 
STORE 


TO 


■  TO  MLNAME 
*  TO  MFNAME 
MRANK 


TO  NCONTNUM 
TO  NRECORD 
TO  MM  I 


TO 

TO 

TO 


MSSAN 

MORGAN 

NLOCAT 


TO  MPOS 


TO  NTYPE 
TO  MACFT 


STORE  I  TO  NCOUNT 
STORE  • 


TO 


NSEFE 
STORE  0  TO  MREC 
STORE  • 

STORE  * 

STORE  ■ 

STORE  " 

STORE  • 

STORE  ■ 

STORE  ■ 

STORE 
STORE 
STORE 
STORE 
STORE 
STORE  • 

STORE  ■ 

STORE  ■ 

STORE  " 

STORE  • 

STORE  • 

MZONE 1 
STORE  CTOD(" 
STORE  CTOO{“ 
STORE  •  ■  TO 
STORE  "  "  TO 
STORE  • 

STORE  • 


TO 

TO 

TO 

TO 


CTODi 

CTOD 

CTOOi 

CTOD 

CTOD 


I 


1 


■') 


MTESTl 
MTEST2 
MTEST3 
MTEST4 
TO  MTEST5 
TO  MTEST6 
MTEST7 
NTDATEl 
MTDATE2 
NTDATE3 
MTDATE4 
NTDATE5 


TO 

TO 

TO 

TO 

TO 

TO 


TO  MSCOREl 

■  TO  NSC0RE2 

■  TO  NSCORE3 
*  TO  NSC0RE4 

■  TO  MSC0RE5 


TO; 


MOBX 
MCBX 
TO  MINX 
TO  MIRC 


•5 


TO  MOATEl 


TO  MEXP 


STORE  ■  "  TO  MUPDATES 

STORE  CTODC  /  /  *)  TO  "EXPIREl 

STORE  CTOD("  /  /  ")  TO  MEXPIRE3 

*— OPEN  EVALUATION  TYPE—* 

*— DEFAULT  FILE—* 

USE  TYPE__EVA 

CLEAR 

*— LIST  TO  SCREEN  TYPES  OF—* 
•—EVALUATIONS  DEFINED — * 

DISPLAY  ALL  DESCRIP 

* — allow  user  to  choose  type—* 

*.-.OF  EVALUATION  DESIRED—* 

»  15,5  SAY  "ENTER  NUMBER  OF  DESIRED 
EVALUATION  TYPE;  "  GET  MREC 

READ 

GOTO  MREC 

* — DEFINE  MEMORY  VARIABLES—* 

NTYPE  -  TRIM(TYPE) 

NOBX  -  OBX  REQ 
MCBX  -  CBXniEQ 
MINX  •  INXniEQ 
MEPE  •  EPETIEQ 
MIRC  ■  IRCTREQ 
MTAC  -  TACTREQ 
MUPDATES  -“UPDATE 
MZONE  -  ZONE 

ENDCASE 

•-  —  DEFINE  HHAT  REQUISITES—* 

•—are  needed—* 

DO  CASE 

CASE  NOBX  -  "Y"  .OR.  MOBX  ■  "T"; 
MTESTl  -  "OPEN  BOOK" 

ENDCASE 

DO  CASE 

CASE  MCBX  -  "Y"  .OR.  MCBX  -  "T"; 
MTEST2  -  "CLOSED  BOOK" 

ENDCASE 

DO  CASE 

CASE  MINX  -  "Y"  .OR.  MINX  -  "T"; 
MTEST3  -  "INSTRUMENT" 

ENDCASE 

DO  CASE 


STORE  "  ■  TO  MTAC 
STORE  •  •  TO  MERE 
ENDCASE 

DO  CASE 

CASE  MIRC  •  "Y*  .OR.  MIRC  ■  "T"; 
MTEST5  -  "IRC" 

ENOCASE 

DO  CASE 

CASE  MTAC  -  'Y"  .OR.  MTAC  •  “T"; 
MTEST6  •  'TAC  TEST" 

ENOCASE 

CLOSE  DATABASES 
CLEAR 

*— OPEN  FORMS  DATABASE  AND  INDEX—* 
SELECT  1 

USE  FORMS  INDEX  FORMS 

CLEAR 

IF  EOF() 

•  8,  S  SAY  "THERE  ARE  NO  CONTROL: 
NUMBERS  IN  THIS  FILE" 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 

CLEAR 

ELSE 

GOTO  TOP 

♦—LOCATE  AND  DEFINE  NEXT—* 

*  - CONTROL  NUMBER  IN  SEQUENCE - * 

LOCATE  FOR  CONTNUM  <>  0 
MCOUNT  -  CONTNUM 
DO  WHILE  FOUNDO 
IF  CONTNUM  >  MCOUNT 
MCOUNT  -  CONTNUM 
ELSE 

MCOUNT  -  MCOUNT 
ENniF 
CONTINUE 
ENDDO 


CASE  MEPE  ■  "Y"  .OR.  MEPE  -  "T"; 
MTEST4  -  "EPE" 

SELECT  2 

♦—OPEN  INDIVIDUAL  DATABASE—* 

* — AND  INDEX - * 

♦—DISPLAY  AND  ALLOW  USER  TO—* 
♦—CHOOSE  INDIVIDUAL—* 

USE  INDIV  INDEX  INDIV 

•  1.  5  SAY  "REC  NAME: 

RANK  ACFT" 

DO  WHILE  .NOT.  EOF()  .AND.; 

MRECORD  -  0  DISPLAY  NEXT  18  LNAME,; 
FNAME,  MI.  RANK.  ACFT 

#  24.5  SAY  "ENTER  RECORD  NUMBER  TO; 
ADD:  "  GET  MRECORD 

READ 

CLEAR 

ENDDO 

IF  MRECORD  -  0 
CLOSE  DATABASES 
RETURN 
ELSE 

MCOUNT  -  MCOUNT  *  1 
MCONTNUM  -  MCOUNT 
GOTO  MRECORD 
CLEAR 

♦—IDENTIFY  PROPER  ZONE  FOR  TYPE—* 
*— EVAL  CHOSEN—* 

DO  CASE 

CASE  MTYPE  -  "INST/QUAL" 

NZONEl  -  ZONEl 

CASE  MTYPE  •  "TACTICAL" 

MZONEl  -  Z0NE2 

CASE  MTYPE  -  "MISSION" 

MZONEl  -  ZONES 

CASE  MTYPE  -  "QUALIFICATION" 

MZONEl  -  Z0NE4 

CASE  MTYPE  -  "TAC/QUAL" 
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ENOIF 

*— lOEMTIFY  EXPIRATION  DATE—* 
*— OF  EVALUATION  CHOSEN—* 

*— DEFINE  MEMORY  VARIABLE  VALUES—* 

MEXPIREl  -  EXPIREl 
MEXPIRE2  -  EXPIRE2 
MEXPIRE3  -  EXPIRES 
MORGAN  -  ORGAN 
MLOCAT  -  LOCAT 
MSSAN  -  SSAN 
MMI  -  MI 
MPOS  ■  POSITION 
MACFT  ■  ACFT 
MLNAME  -  LNAME 
MFNAME  -  FNAME 
MRANK  -  RANK 

SELECT  1 

CLEAR 

*— IDENTIFY  WHEN  FLIGHT  PHASE  OF—* 
*— EVAL  WAS  COMPLETED—* 


MZONEl  «  ZONES 
ENDCASE 

CASE  TESTl  -  ■ 

REPLACE  TESTl  WITH  '4MTEST1' 

ENDCASE 

DO  CASE 

CASE  TESTl  -  ■ 

REPLACE  TESTl  WITH  '4MTEST2’ 

CASE  TESTl  <>  • 

•AND.  TEST2  -  ' 

REPLACE  TEST2  WITH  'AMTESTZ' 

ENDCASE 

DO  CASE 

CASE  TESTl  -  * 

REPLACE  TESTl  WITH  '4MTEST3' 


9  5.5  SAY  "ENTER  THE  DATE  FLIGHT; 
PHASE  WAS  COMPLETED:  *  GET  MEXP; 
PICTURE  'CTOD("  /  /  ")' 

READ 

* — ENTER  AN  EMPTY  RECORD—* 

*— REPLACE  APPROPRIATE  FIELDS—* 
*— WITH  MEMORY  VARIABLES—* 

APPEND  BLANK 

MDATEl  -  MEXP 


CASE  TESTl  <>  * 

.AND.  TEST2  -  " 

REPLACE  TEST2  WITH  '4NTEST3' 

CASE  TESTl  <>  “ 

.AND.  TEST2  <>  " 

.AND.  TEST3  -  “ 

REPLACE  TEST3  WITH  '4MTEST3' 

ENDCASE 
DO  CASE 


REPLACE  OATEl  WITH  MEXP 
REPLACE  CONTNUM  WITH  MCONTNUM 
REPLACE  LNAME  WITH  '4MLNAME' 
REPLACE  FNAME  WITH  '4MFNAME' 
REPLACE  MI  WITH  'BMMI' 

REPLACE  RANK  WITH  '4MRANK' 
REPLACE  SSAN  WITH  '4MSSAN' 
REPLACE  ORGAN  WITH  '4M0RGAN' 
REPLACE  LOCAT  WITH  'BMLOCAT' 
REPLACE  ACFT  WITH  'BMACFT' 
REPLACE  POSITION  WITH  '4MP0S' 
REPLACE  FLTl  WITH  MTYPE 
REPLACE  TESTl  WITH  '4MTEST1' 

IF  MUPOATES  -  "Y"  .OR.  ; 
MUPDATES  -  "T" 

REPLACE  ELIGPER  WITH  '4NZ0NE1' 

ELSE 

ENOIF 


CASE  TESTl  ■  • 

REPLACE  TESTl  WITH  '4MTEST4' 

CASE  TESTl  <>  • 

.AND.  TESTE  ■  ' 

REPLACE  TEST2  WITH  '4MTEST4' 

CASE  TESTl  <>  • 

.AND.  TESTE  <>  " 

.AND.  TEST3  -  " 

REPLACE  TEST3  WITH  '4MTEST4' 

CASE  TESTl  <>  ■ 

JIND.  TESTE  <>  • 

.AND.  TEST3  <>;  ' 

.AND.  TESTA  -  " 

REPLACE  TESTA  WITH  '4MTEST4' 

ENDCASE 


*— POSITION  REQUISITES  ON  FORM—*  DO  CASE 

*— PROPERLY— * 
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DO  CASE 

CASE  TESTl  <>  "  •; 

.AND.  TEST2  -  * 

REPLACE  TEST2  WITH  '4MTEST5' 

CASE  TESTl  <>  •  •; 

.AND.  TEST2  O  •; 

JHD.  TESTS  -  • 

REPLACE  TESTS  WITH  '&MTEST5' 

CASE  TESTl  <>  • 

•AND.  TEST2  <>  ■  •; 

J^MD.  TESTS  <>  • 

.AND.  TESTA  - 

REPLACE  TESTA  WITH  '4MTEST5' 

CASE  TESTl  <>  "  •; 

.AND.  TEST2  <>  • 

.AND.  TESTS  <>  •  "  ; 

.AND.  TESTA  <>  ■ 

REPLACE  TESTS  WITH  '4MTEST5' 

ENDCASE 

DO  CASE 

CASE  TESTl  -  • 

REPLACE  TESTl  WITH  '4NTEST6' 

CASE  TESTl  <>  •  *; 

.AND.  TEST2  ■  " 

REPLACE  TEST2  WITH  '4MTEST6' 

CASE  TESTl  <>  ■ 

.AND.  TEST2  <>  " 

.AND.  TESTS  -  ■ 

REPLACE  TESTS  WITH  '4MTEST6* 

CASE  TESTl  <>  " 

.AND.  TEST2  <>  •  *; 

.AND.  TESTS  O’  ■; 

.AND.  TESTA  -  ■ 

REPLACE  TESTA  WITH  '4HTEST6' 

CASE  TESTl  <>  ■ 

.AND.  TEST2  O’  ’; 

.AND.  TESTS  O’  ’; 

.AND.  TESTA  O’  ’; 

.AND.  TESTS  O  ’ 

ENDCASE 

♦—REDEFINE  MEMORY  VARIABLES—* 

MTDATEl  -  TDATEl 
MTDATE2  -  T0ATE2 
MTDATES  -  TDATES 
MTOATEA  -  TDATEA 


CASE  TESTl  -  ’ 

REPLACE  TESTl  WITH  '4MTESTS' 

MSCORES  -  SCORES 
MSCOREA  -  SCOREA 
MSCORES  -  SCORES 

♦-CALCULATE  NEW  EXPIRATION  DATES-* 
DO  CASE 

CASE  MZONE  -  17 
IF  DTOC(MEXP)  <>(’//  ’) 

DO  CASE 

CASE  MEXP  >-  CT0D(’0l/09/91’); 

JVND.  MEXP  <-  CT0p(’29/02/92’)  .OR. 
MEXP  >-  CT00(’01/09/95’)  .AND.  MEXP 
<-  CTDD(’29/02/96’)  .OR.  MEXP  >-  ; 
CT0D( ’01/09/99’)  J^ND.  MEXP  <-  ; 
CT0D(’29/02/00’) 

IF  LEFT(DTOC(MEXP),S)  -  ’01/01* 

MEXP  -  MEXP  +  S17 

ELSE 

ENDIF 

IF  VAL(STR(MONTH(MEXP)))  -  1 
MEXP  •  MEXP  +  S16 
ELSE 
ENDIF 

IF  VAL(STR(MONTH(MEXP)));  >-  2; 
J^ND.  VAL(STR(MDNTH(MEXP)))  <-  6; 

MEXP  -  MEXP  ♦  S19  • 

ELSE 

ENDIF 

IF  LEFT(DT0C(MEXP),5)  -  ’01/09’; 

.OR.  LEFT(0T0C(MEXP),S)  -  ’Ol/lO’; 
.OR.  LEFT(DT0C(MEXP),5)  -  ’Ol/ll’; 
.OR.  LEFT{DT0C(MEXP),5)  ■;  ’01/12’ 

MEXP  -  MEXP  ♦  S19 

ELSE 

ENDIF 

IF  VAL(STR(M0NTH(MEXP)))  -  9  .OR.; 
VAL(STR(mONTH(MEXP)})  -  10  .OR.; 

VAL(STR{M0NTH(MEXP)j)  ■  11  .OR.; 
VAL(STR(MONTH(MEXP)))  -  12 

MEXP  -  MEXP  *  S17 

ELSE 
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•Ol/Ol' 


HTDATE5  -  TDATE5 
MSCOREl  -  SCOREl 
MSC0RE2  -  SC0RE2 
CASE  LEFT{DT0C(MEXP),5)  - 

NEXP  -  NEXP  *  516 

CASE  yAL(STR(NONTH(MEXP}}) 

MEXP  -  MEXP  ♦  515 


CASE  VAL(STR(MO»ITH(MEXP)))  >-  2; 
JkMD.  VAL(STR(M0HTH(MEXP)))  <-  8 


MEXP  *  518 


CASE  LEFT(DTOC(MEXP).5)  -  'Ol/OS'; 
•OR.  LEFT(DTOC{MEXPi,5)  -  *Ol/lO“; 
.OR.  LEFT{DTOC{MEXP).5)  -  "Ol/ll"; 
.OR.  LEFT(DT0C(MEXP),5)  •  •01/12" 


MEXP  -  MEXP  *  518 

CASE  VAL(STR(MONTH(MEXP 
.OR.  yAL(STR(MONTH(MEXP^ 


.OR.  yAL(STR(MOMTH(MEXPn)  -  10; 
.OR.  yAL(STR(MONTH(MEXPn)  -  11; 
.OR.  yAL(STR([MORTH(MEXPW  “  12 


MEXP  -  MEXP  +  516 
ENOCASE 


ENOIF 

CASE  OTOC(MEXP)  -('//•) 
ENOCASE 

IF  DTOC(MEXP)  <>  (•  /  /  •) 

REPLACE  EXPl  WITH  TRIM(FLTl)  +; 

■  +  LEFT(CM0NTH(MEXP).3)  +; 

•  •  +  RISHT(STR(YEAR(MEXP),41,2) 

ELSE  OTOC(MEXP)  -  C  /  /  ') 

REPLACE  EXPl  WITH  TRIM(FLTl)  +  " 

ENOIF 

♦—REPLACE  OLD  EXPIRATION  OATES—* 
*— IN  INDiy  DATABASE  WITH  NEW—* 

SELECT  2 

DO  CASE 

CASE  MTYPE  -  'INST/QUAL" 

IF  DTOC{MEXP)  <>  (•  /  /  •) 

REPLACE  ZONEl  WITH; 
LEFT(CM0NTH(MDATE1),3)+"  •+RIfiHT; 
(STR((YEAR{MDATE1)+1),4),2)+; 

^  -  "tLEPT(CM0NTH(MEXP),31+; 

)«4)t2) 


ENDIF 


ENOIF 


•  •+RIGHT(STR(YEAR(MEXP 


CASE  MTYPE  •  'TACTICAL" 

IF  DTOC(MEXP)  <>(•//  •) 

REPLACE  Z0NE2  WITH; 
LEFT(CM0NTH(mDATE1).3)+"  •+RIGHT 
(STR((YEAR(M0ATE1)*1),4).2)+; 

•  -  VLEFT(CM0NTH(MEXP),3)+; 

•  •+RI6HT(STR(YEAR(MEXP).4),2) 

REPLACE  EXPIRE2  WITH  MEXP 


ENOIF 

CASE  MTYPE  -  "MISSION" 

IF  DTOC(MEXP)  <>  (•  /  /  •) 

REPLACE  ZONES  WITH; 

LEFT(CM0NTH(MDATE1).3)+"  "♦RIGHT 
(STR((YEAR(MDATEn+l)  .4)  .2)+; 

*  -  ^♦LEFTfCM0NTH(MEXP).3)+; 

•  •♦RIGHT(STR(YEAR(MEXP),4),2) 

REPUCE  EXPIRES  WITH  MEXP 


ENDIF 

CASE  MTYPE  •  "TAC/QUAL" 

IF  DTOC(MEXP)  <>{•//  •) 

REPLACE  Z0NE4  WITH; 
LEFT(CM0NTH(MDATE1),3)*"  "♦RIGHT 
(STR((YEAR(MDATE1)^1).4).2)^; 

•  -  ‘♦LEFT(CM0HTH(MEXP),3)^; 

■  •♦RIGHT(STR(YEAR(MEXP),4),2) 

REPLACE  EXPIRE4  WITH  MEXP 


ENOIF 
ENOCASE 
SELECT  1 

SET  FORMAT  TO  F0RM8 
EDIT  NEXT  1 
CLOSE  ALL 
SELECT  1 

USE  F0RM8  INDEX  F0RM8 


REPLACE  EXPIREl  WITH  NEXP 


REPLACE  TOATEl  WITH  NTOATEl 
REPLACE  TDATE2  WITH  HTDATE2 
REPLACE  T0ATE3  WITH  MT0ATE3 
REPUCE  TDATE4  WITH  NTDATE4 
REPLACE  TOATES  WITH  HTOATES 
REPUCE  SCOREl  WITH  NSCOREl 
REPUCE  SC0RE2  WITH  NSC0RE2 
REPUCE  SC0RE3  WITH  NSC0RE3 
REPUCE  SC0RE4  WITH  MSC0RE4 
REPUCE  SCORES  WITH  MSCORES 

SELECT  2 

*— REPUCE  REQUISITE/EVAL  DATES — * 
*— IN  INDIV  WITH  NEW  OATES—* 

USE  INDIV  INDEX  INDIV 

GOTO  MRECORO 

DO  CASE 

CASE  OTOC(MTDATEl)  <>  ('  •  '  “) 

IF  MTESTl  «  ‘OPEN  BOOK* 

REPUCE  OPENBOOK  WITH  MTDATEl 
REPUCE  SCOREl  WITH  NSCOREl 

ELSE 

END  IF 

IF  NTESTl  -  "CLOSED  BOOK" 

REPLACE  CL0SE0600K  WITH  NTOATEl 
REPUCE  SCOREl  WITH  NSCOREl 

ELSE 

ENOIF 

IF  NTESTl  -  ‘INSTRUNENT* 

REPLACE  INSTRUNENT  WITH  NTOATEl 
REPLACE  SCOREl  WITH  NSCOREl 

ELSE 

ENOIF 

IF  NTESTl  -  ‘TACTICAL* 

REPLACE  TACTEST  WITH  NTOATEl 
REPUCE  SCOREl  WITH  NSCOREl 

ELSE 

ENOIF 

IF  NTVPE  •  ‘INST/QUAL*  .AND.; 

NTESTl  •  ‘EPE* 

REPLACE  SCOREl  WITH  NSCOREl 
REPLACE  lEPE  WITH  NTOATEl 


ENOIF 

IF  NTYPE  -  ‘TACTICAL*  .AND.;  NTESTl 

.  «EPE* 

REPUCE  SCOREl  WITH  NSCOREl 
REPLACE  TEPE  WITH  NTOATEl 

ENOIF 

CASE  DTOC(NTDATEl)  -(*//*) 

ENOCASE 

DO  CASE 

CASE  DT0C(NTDATE2)  <>  (*  /  /  *) 

IF  NTEST2  -  ‘OPEN  BOOK* 

REPUCE  OPENBOOK  WITH  NTDATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 

ELSE 

ENOIF 

IF  NTEST2  >  ‘CLOSED  BOOK* 

REPLACE  CLOSEOBOOK  WITH  NTDATE2 
REPUCE  SC0RE2  WITH  NSCORE2 

ELSE 

ENOIF 

IF  NTEST2  •  ‘INSTRUNENT* 

REPLACE  INSTRUNENT  WITH  NTDATE2 
REPUCE  SC0RE2  WITH  NSCORE2 

ELSE 

ENOIF 

IF  NTEST2  -  ‘TACTICAL* 

REPUCE  TACTEST  WITH  NTDATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 

ELSE 

ENOIF 

IF  NTYPE  ■  ‘INST/QUAL*  .AND.; 
NTEST2  -  ‘EPE* 

REPUCE  lEPE  WITH  NTDATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 

ELSE 

ENOIF 

IF  NTYPE  -  ‘TACTICAL*  .AND.; 
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ELSE 

REPLACE  TEPE  UlTH  MT0ATE2 
REPLACE  SC0RE2  WITH  MSC0RE2 

ENDIF 

CASE  DT0C(MTDATE2)  -  C  /  /  ") 

ENOCASE 

DO  CASE 

CASE  DT0C(MT0ATE3)  <>("//  •) 

IF  MTEST3  -  “OPEN  BOOK" 

REPLACE  OPENBOOK  WITH  MTOATE3 
REPLACE  SC0RE3  WITH  NSC0RE3 

ELSE 

END  IF 

IF  HTEST3  -  "CLOSED  BOOK" 

REPLACE  CLOSEDBOOK  WITH  MT0ATE3 
REPLACE  SCORES  WITH  MSCORE3 

ELSE 

ENOIF 

IF  MTEST3  •  "INSTRUMENT" 

REPLACE  INSTRUMENT  WITH  MTDATE3 
REPLACE  SCORES  WITH  NSC0RE3 

ELSE 

ENOIF 

IF  HTEST3  -  "TACTICAL" 

REPLACE  TACTEST  WITH  NTDATE3 
REPLACE  SCORES  WITH  MSC0RE3 

ELSE 

ENOIF 

IF  MTYPE  -  "INST/qUAL"  .ANO.; 
MTEST3  ■  "EPE" 

REPLACE  lEPE  WITH  MTOATE3 
REPLACE  SCORES  WITH  MSCORES 

ELSE 

ENOIF 

IF  MTYPE  -  "TACTICAL"  .ANO.  ; 
MTEST3  -  "EPE" 

REPLACE  TEPE  WITH  MTOATES 
REPLACE  SCORES  WITH  MSCORES 


MTEST2  -  "EPE" 

ENOCASE 
DO  CASE 

CASE  DT0C(MT0ATE4)  <>("//  ") 

IF  MTEST4  -  "OPEN  BOOK" 

REPLACE  OPENBOOK  WITH  MT0ATE4 
REPLACE  SC0RE4  WITH  NSC0RE4 

ELSE 

ENOIF 

IF  MTEST4  •  "CLOSEO  BOOK" 

REPLACE  CLOSEOBOOK  WITH  MT0ATE4 
REPLACE  SC0RE4  WITH  MSC0RE4 

ELSE 

ENOIF 

IF  MTEST4  -  "INSTRUMENT" 

REPLACE  INSTRUMENT  WITH  NT0ATE4 
REPLACE  SC0RE4  WITH  NSC0RE4 

ELSE 

ENOIF 

IF  MTEST4  -  "TACTICAL" 

REPLACE  TACTEST  WITH  MTDATE4 
REPLACE  SC0RE4  WITH  MSC0RE4 

ELSE 

ENOIF 

IF  MTYPE  ■  "INST/QUAL"  .ANO.; 
MTEST4  -  "EPE" 

REPLACE  lEPE  WITH  NT0ATE4 
REPLACE  SC0RE4  WITH  MSC0RE4 

ELSE 

ENOIF 

IF  MTYPE  -  "TACTICAL"  J^NO.;  MTEST4 
.  "EPE" 

REPLACE  TEPE  WITH  MT0ATE4 
REPLACE  SC0RE4  WITH  MSC0RE4 

ENOIF 

CASE  DT0C(MT0ATE4)  -("//") 

ENOCASE 

00  CASE 


^♦9 


ENDIF 

CASE  DT0C(MT0ATE3)  •  ("  /  /  ') 

REPLACE  OPENBOOK  MITH  NTOATE5 
REPLACE  SCORES  MITH  NSC0RE5 

ELSE 

END  IF 

IF  MTEST5  -  "CLOSED  BOOK” 

REPUCE  CLOSEOBOOK  MITH  NTOATES 
REPUCE  SCORES  MITH  NSCORES 

ELSE 

ENDIF 

IF  MTESTS  -  "INSTRUMENT" 

REPUCE  INSTRUMENT  WITH  MTDATES 
REPUCE  SCORES  MITH  MSCORES 

ELSE 

ENDIF 

IF  MTESTS  -  "TACTICAL" 

REPLACE  TACTEST  MITH  MTDATES 
REPLACE  SCORES  WITH  MSCORES 

ELSE 

ENDIF 

IF  MTYPE  •  "INST/QUAL"  .AND.; 

MTESTS  -  "EPE" 

REPLACE  lEPE  MITH  MTDATES 
REPLACE  SCORES  MITH  MSCORES 

ELSE 

ENOIF 

IF  MTYPE  -  "TACTICAL"  ,ANO.;  MTESTS 

-  "EPE" 

REPLACE  TEPE  MITH  MTDATES 
REPUCE  SCORES  MITH  MSCORES 

ENDIF 

CASE  OTOC(MTDATES)  ■("//") 

ENDCASE 

CLOSE  ALL 

CLEAR 

STORE  "  "  TO  MRESPONSE 
STORE  CTOO("  /  /  ")  TO  MCOMPOATE 
STORE  "  "  TO 

MEXAMINER 


CASE  OTOC(MTDATES)  <>  ("  /  /  ") 

♦—PREPARING  TO  COMPLETE  REVERSE—* 
♦—SIDE  OF  AF  FORMS—* 

B  2.  S  SAY  "  EPE  DISCREPANCIES* 

•  9.  10  SAY  "ENTER  DATE  OF  THE; 
EVALUATION:  *  GET  MCOMPOATE 

•  10.  10  SAY  "ENTER  EXAMINER'S; 

NAME  ADMINISTERING  EPE:  *  GET 
MEXAMINER; 

PICTURE  "•!* 

»  13  .10  SAY  "ENTER  AN  EPE; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 
(Y)  FOR  YES:  *; 

GET  MRESPONSE; 

PICTURE  "•!" 

READ 

SELECT  3 

*-IF  THERE  ARE  EPE  DISCREPANCIES-* 

* — OPEN  DATABASE  AND  ENTER—* 
*— CHOSE  PROPER  DISCREPANCY—* 

* - DEFAULT  FILE—* 

USE  EPEDIS  INDEX  EPEDIS 

SELECT  5 

IF  MPOS  -  "P"  .OR.  MPOS  •  "IP"  .OR. 
MPOS  •  "CP" 

USE  EPEMUPS  INDEX  EPEMUPS 
ELSE 

USE  MEPMUPS  INDEX  MEPMUPS 
ENDIF 

DO  MHILE  MRESPONSE  -  *Y* 

SELECT  3 
APPEND  BLANK 
CLEAR 

STORE  0  TO  MAREA 

STORE  "  *  TO  MSUBARU 

STORE  "  "  TO  MAREANAME 

f  5.5  SAY  "ENTER  AREA  AND  SUBAREA; 
NUMBER  OF  DISCREPANCY:  *  GET  MAREA 

•  5.  65  GET  MSUBAREA 
RUD 

SELECT  5 

LOCATE  FOR  AREA  «  MAREA  .AND.; 
SUBAREA  -  MSUBAREA 

IF  .NOT.  FOUNOO 
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CLEAR 


* — CHECK  FOR  VALID  DISCREPANCY - * 

«  5.5  SAY  ■  NOT  A; 

VALID  AREA” 

DELETE 

PACK 

ELSE 

MAREANANE  -  AREANANE 

SELECT  3 

♦—REPLACE  FIELDS  WITH  PROPER - * 

♦—DEFAULTS—* 

REPLACE  AREANANE  WITH  'ANAREANANE* 
REPUCE  AREA  HITH  MAREA 
REPUCE  SUBAREA  WITH  'AHSUBAREA* 
REPUCE  CONTNUN  HITH  NCONTNUH 
REPUCE  EXAMINER  WITH  'AMEXANINER* 
REPLACE  TYPE  HITH  ‘ANTYPE* 

REPUCE  CONPDATE  HITH  NCONPDATE 
REPUCE  ACFT  WITH  'ANACFT* 

REPUCE  POSITION  HITH  'AHPOS‘ 

SET  FORMAT  TO  EPEOIS 

EDIT  NEXT  1 

CLOSE  ALL 

STORE  *  ”  TO  NRESPONSE 
STORE  0  TO  MAREA 
STORE  ■  *  TO  NSUBAREA 

CLEAR 

SELECT  3 

USE  EPEOIS  INDEX  EPEOIS 
SELECT  5 

IF  MPOS  -  "P”  .OR.  MPOS  •  "IP”  .OR.; 
NPOS  ■  "CP” 

USE  EPEUUPS  INDEX  EPEHUPS 
ELSE 

USE  HEPHUPS  INDEX  MEPHUPS 
ENOIF 

♦ — CHECK  FOR  MORE  THAN  ONE—* 

♦ — DISCREPANCY-—* 

*— IF  YES  LOOP  FOR  ANOTHER  ENTRY—* 

•  10  .  2  SAY  ‘ENTER  ANOTHER  EPE; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 

(Y)  F  OR  YES:  *  GET  NRESPONSE; 
PICTURE  "»l” 


ENDIF 
ENDDO 
CLOSE  ALL 
CLEAR 
SELECT  1 

USE  FORMS  INDEX  FORMS 

LOCATE  FOR  CONTNUM  -  NCONTNUN 
MSEFE  -  TRlMlEXAHlMEk) 

MTYPE  -  TRIM(FLTl) 

CLOSE  ALL 

STORE  ■  ■  TO  NRESPONSE 
STORE  CTOOC  /  /  ”)  TO  MOATE 
STORE  " 

TO  NEXANINER 

*— LOOP  FOR  ENTERING— * 

♦—FLIGHT  DISCREPANCIES—* 

•  2.  5  SAY  ■  FLIGHT  DISCREPANCIES” 
»  10  .  10  SAY  ‘ENTER  DATE  OF  THE; 
EVALUATION:  *  GET  MDATE 

•  11.10  SAY  ‘ENTER  UST  NAME  OF; 
FLIGHT  EXAMINER:  ‘  GET  NEXANINER; 
PICTURE  ‘Bl" 

f  13.  2  SAY  ‘ENTER  A  FLIGHT; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 
(Y)  FOR  YES:  ‘  GET;  NRESPONSE; 
PICTURE  ‘»l‘ 

READ 

SELECT  2 

USE  FLTOIS  INDEX  FLTOIS 
SELECT  5 

♦—CHOSE  PROPER  DEFAULT  FILE - * 

IF  MPOS  •  ‘P‘  .OR.  MPOS  -  ‘IP”  .OR.; 
MPOS  -  ‘CP‘ 

USE  FLTHUPS  INDEX  FLTUUPS 
ELSE 

USE  UFLTUPS  INDEX  UFLTUPS 
ENOIF 

DO  WHILE  NRESPONSE  •  ‘Y‘ 

SELECT  2 

♦—ENTER  BLANK  RECORD  AND  REPLACE—* 
♦—FIELDS  HITH  DEFAULTS—* 
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READ 


APPEND  BUNK 


STORE  0  TO  NARU 

STORE  *  *  TO  NSUBAREA 

STORE  *  *  TO  NAREANAME 

»  S.5  SAY  "ENTER  AREA  AND  SUBAREA; 
NUMBER  OF  DISCREPANCY:  "  GET  NARU 
•  5.65  GET  NSUBAREA 

READ 

SELECT  5 

LOCATE  FOR  AREA  -  NAREA  J^NO.; 
SUBAREA  -  NSUBARU 

IF  .NOT.  FOUNOO 

CLUR 

»  5.5  SAY  "  NOT  A  VALID  AREA* 

DELETE 

PACK 

ELSE 

NAREANAME  -  AREANANE 
SELECT  2 

REPUCE  AREANANE  WITH  ‘BNAREANANE* 
REPUCE  ARU  WITH  NAREA 
REPUCE  SUBAREA  MITH  'BNSUBARU* 
REPUCE  CONTNUN  UlTH  NCONTNUN 
REPUCE  EXAMINER  WITH  'BNEXANINER* 
REPUCE  FLTl  MITH  '&NTYPE' 

REPUCE  CONPDATE  WITH  NOATE 
REPUCE  ACFT  WITH  'ANACFT' 

REPUCE  POSITION  WITH  'BNPOS* 

SET  FORMAT  TO  FLTOIS 

EDIT  NEXT  I 

CLOSE  ALL 

STORE  "  "  TO  NRESPONSE 
STORE  0  TO  NAREA 
STORE  *  *  TO  NSUBAREA 

CLEAR 

SELECT  2 

USE  FLTOIS  INDEX  FLTOIS 
SELECT  5 

IF  NPOS  -  "P"  .OR.  NPOS  •  "IP"  .OR.; 
NPOS  -  "CP" 

USE  FLTHUPS  INDEX  FLTMUPS 
ELSE 


CLEAR 

ENDIF 

*  - CHECK  FOR  MORE  THAN  ONE—* 

*— DISCREPANCY— * 

•  10.  2  SAY  "ENTER  ANOTHER  FLIGHT; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 
(Y)  FOR  YES:  *  GET  NRESPONSE; 
PICTURE  *»1" 

RUD 

ENOIF 

ENODO 

CLOSE  ALL 

USE  FORMS  INDEX  FORMS 
CLEAR 

LOCATE  FOR  CONTNUN  -  NCONTNUN 
*— COMPLETE  REMAINDER  OF  FORMS—* 
SET  FORMAT  TO  SEC456.FNT 
EDIT  NEXT  1 
ENDIF 

ClOSE  DATABASES 
CHOICE  •  0 

• - RETURN  TO  MAIN  MENU - * 

RETURN 
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USE  UFLTUPS  INDEX  UFLTUPS 


*FC1F  ADO  DATA  PROCEDURE* 


• - INITIALIZE  CHOICE  TO  ZERO - * 

CHOICE  -  0 

*— BE6IN  FCIF  ADD  DATA  PROCEDURE—* 

DO  WHILE  CHOICE  <>  5 

CLEAR 

TEXT 

AOO  FCIF  ITEMS 


1.  PUBLICATION 

2.  SUPPLEMENT 

3.  CHANGE 

4.  INC 

5.  READ  FILE  ITEM 
RETURN  TO  MAIN  MENU 

ENOTEXT 

*-ORAU  DOUBLE  LINES  AT  COORDINATES-* 

«  4.IS  TO  4.60  DOUBLE 
9  1.16  TO  20.60  DOUBLE 

♦  - EKTER  USER'S  CHOICE - * 

«  23.  26  SAT  "ENTER  CHOICE": 

GET  CHOICE: 

PICTURE  "9^  RANGE  1.  6 
READ 

*-BEGlN  EXECUTION  OF  USER'S  CHOICE-* 
DO  CASE 

CASE  CHOICE  -  1 

*  - OPEN  FCIF  FOR  PUBLICATIONS——* 

CLEAR 

STORE  0  TO  NANSUER 

•  6.  6  SAY  "(I)  TECHNICAL  ORDERS  " 
»  6.  5  SAY  "(2)  REGULATIONS: 

"  GET  NANSUER: 

PICTURE  "9"  RANGE  1.2 
READ 

DO  CASE 

CASE  NANSUER  -  1 

USE  TECHORO  INDEX  TECHORD 

SET  FORMAT  TO  TECHORD 
APPEND 


* — SCREEN  FORMAT  FOR—* 

*— PUBLICATIONS  ENTRY—* 

SET  FORMAT  TO  FCIF 

APPEND 

ENDCASE 

CASE  CHOICE  -  2 

*  - OPEN  FCIF  FOR  SUPPLEMENTS- 

USE  FC1F2  INDEX  FCIF2 

*-SET  SCREEN  FORMAT  FOR-* 

*— SUPPLEMENT  ENTRY—* 

SET  FORMAT  TO  FC1F2 
APPEND 

CASE  CHOICE  -  3 

*  - OPEN  FCIF  FOR  CHANGES - * 

USE  FC1F3  INDEX  FC1F3 

*-SET  SCREEN  FORMAT  FOR-* 
*-CHANGE  ENTRY-* 

SET  FORMAT  TO  FCIF3 
APPEND 

CASE  CHOICE  -  4 

*  - OPEN  FCIF  FOR  IMCS - * 

USE  FCIF4  INDEX  FCIF4 

*  - SET  SCREEN  FOR  INC  ENTRY- 

SET  FORMAT  TO  FC1F4 
APPEND 

CASE  CHOICE  -  5 

*— OPEN  FCIF  FOR  READ  FILE  ITEMS 

USE  FCIFS  INDEX  FCIF5 

*SET  SCREEN  FOR  READ  FILE  ENTRY 

SET  FORMAT  TO  FCIFS 
APPEND 

ENDCASE 

*  - RESET  CHOICE  EQUAL  TO  ZERO 

CHOICE  ■  0 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 
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CASE  NANSMER  -  2 
USE  FCIF  INDEX  FCIF 

*SUP  EVAL  ADO  DATA  PROCEDURE* 

***************************** 

*-OPEN  SUPEVAL  DATABASE  AND  INDEX-* 
USE  SUPEVAL  INDEX  SUPEVAL 

*  - SET  PROPER  SCREEN  FORMAT - * 

SET  FORMAT  TO  SUPEVAL.FMT 

*  - CREATE  BLANK  RECORD - * 

APPEND  BLANK 

*-EDlT  RECORD  WITH  NEU  INFORMATION-* 
EDIT 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 


*INOIVIOUAL  CNANfiE  PROCEDURE* 

*  - OPEN  DATABASE  FOR - * 

*  - INDIVIDUAL'S  FILE - * 

CLEAR 

USE  INDIV  INDEX  INOIV 

*  - INITIALIZE  MEMORY  VARIABLES - * 

STORE  0  TO  MREC 

CLEAR 

7 

7 

*ENTER  MEMORY  VARIABLES  AT* 

*— SCREEN  PROMPT—* 

DO  HHILE  .NOT.  EOF()  .ANO.  MREC  -  0 

OISPUY  NEXT  18  TRIN(LNANE)*: 

■  ■♦TRIM(FNAME)+''  ■♦TRIM(MI),  ACFT 

*  24.S  SAY  "ENTER  RECORD  NUMBER  TO; 
CHANGE:  "  GET  MREC 

READ 

CLEAR 

ENOOO 


RETURN 


IF  MREC  -  0 

*—— RESET  CHOICE  EQUAL  TO  ZERO 
CHOICE  -  0 

* - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*IF  ENTRY  HAS  BLANK  RETURN* 

*— TO  MAIN  MENU—* 


RETURN 
ENDIF 
GOTO  MREC 

*  - SET  SCREEN  FORMAT  FOR - * 

*  - INDIVIDUAL  FILE  EDIT - * 

SET  FDRMAT  TO  INDIV.FMT 

*  - EDIT  ONLY  THE  NEXT  RECORD- 

EDIT  NEXT  1 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO 

CHOICE  -  0 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 
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*CHECK  CONDITION  OF  ENTRY  FOR  BLANK* 


*FC1F  CHANGE  PROCEDURE* 


* - RESET  CHOICE  EQUAL  Tu  EERO - * 

CHOICE  -  0 

*BE6IN  DO  LOOP  TO  CHANGE* 

*— ANY  FCIF  ITEM—* 

00  WHILE  CHOICE  <>  5 

CLEAR 

TEXT 

CHANGE  FCIF  ITEMS 


1.  PUBLICATION 

2.  SUPPLEMENT 


§  5.  40  SAY  *■  GET  NPUB2; 
PICTURE 

•  5.  46  SAY  ■■  GET  MPUBS; 
PICTURE  ■»!“ 

i  S.  62  SAY  "■  GET  NPUB4; 
PICTURE 

»  5.  58  SAY  GET  MPUBS; 

PICTURE 

READ 

CLEAR 

GOTO  TOP 

LOCATE  FOR  PUBNUM 
TRIH('ANPUBNUN')  .AND.  PUB2  -  ; 
TRIN{'ANPUB2*)  JIND.  PUB3  -  i 
TRIN('ANPUB3'}  .AND.  PUB4  -  ; 
TRlMi  *ANPUB4‘}  JIND.  PUBS  >  ; 
TRIMi  'AMPUBS') 

SET  FORMAT  TO  TECHORO 
EDIT  NEXT  1 


3.  CHANGE 

4.  IMC 

5.  READ  FILE  ITEM 
RETURN  TO  MAIN  MENU 

ENOTEXT 

*ORAH  DOUBLE  LINE  AT  COORDINATES* 

•  4,15  TO  4,60  DOUBLE 
0  1,15  TO  20,60  DOUBLE 

*  - ENTER  USER'S  CHOICE - * 

«  23,  25  SAY  "ENTER  CHOICE"; 

GET  CHOICE; 

PICTURE  "9"  RANGE  I.  5 

READ 

*  - EXECUTE  USER'S  CHOICE - * 

DO  CASE 

CASE  CHOICE  •  I 

*OPEN  FCIF  DATABASE  FOR* 
•—PUBLICATIONS—* 

STORE  0  TO  MANSHER 
CLEAR 

»  5,  5  SAY  "(1)  TECH  ORDER  " 

#  6.  5  SAY  *(2)  PUBLICATIONS; 

"  GET  MANSHER; 

PICTURE  "9"  RANGE  1.2 

READ 

DO  CASE 

CASE  MANSHER  -  1 
USE  TECHORO  INDEX  TECHORO 
STORE  *  "  TO  MPUBNUM 

STORE  "  "  TO  NPUB2 

STORE  "  "  TO  MPUB3 

STORE  "  *  TO  HPU64 

STORE  *  "  TO  MPUBS 


CASE  MANSHER  -  2 
USE  FCIF  INDEX  FCIF 

*  - INITIALIZE  MEMORY  VARIABLE - * 

STORE  "  "  TO  MTYPE 

STORE  0  TO  MNUN 

STORE  0  TO  NNUM2 

STORE  *  *  TO  MVOLUNN 

CLEAR 

*ENTER  MEMORY  VARIABLE  AT* 

•—SCREEN  PROMPT—* 

#  5,  5  SAY  "ENTER  PUBLICATION  TO; 
CHANGE:  "  GET  MTYPE; 

PICTURE  "#l" 

•  5,  41  SAY  ""  GET  MNUM; 

PICTURE  "iff##" 

i  5,  47  SAY  "•"  GET  NNUM2; 

PICTURE  "##«##" 

0  5,  55  GET  MVOLUMN; 

PICTURE  "01" 

READ 
CLEAR 
GOTO  TOP 

•LOCATE  THE  REQUESTED  PUBLICATION* 

LOCATE  FOR  TYPE  •  TRIM('«MTYPE'); 
JIND.  NUN  -  MNUM  JIND.  NUN2  -; 

NNUN2  JINO.  VOLUNN  -; 
TRIN('ANVOLUNN') 

•SET  SCREEN  FORMAT  TO  CHANGE* 
•—PUBLICATIONS  DATA—* 

SET  FORMAT  TO  FCIF 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  1 

ENDCASE 

CASE  CHOICE  >  2 
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•  5.  5  SAY  "ENTER  TECH  ORDER; 

TO  CHANGE:  "  GET  NPUBNUM; 

PICTURE  "if 

USE  FC1F2  INDEX  FCIF2 

•  - INITIALIZE  MEMORY  VARIABLES - * 

STORE  ‘  *  TO  MPUBNUM 

STORE  "  ■  TO  MSUP 

CLEAR 

*-ENTER  MEMORY  VARIABLES  AT  THE-* 

* - SCREEN  PROMPT - • 


»  5,5  SAY  ■  ENTER  THE  BASIC; 
PUBLICATION:  '  GET  MPUBNUM; 

PICTURE  "Bl" 

B  6.5  SAY  "ENTER  THE  SUPPLEMENT  TO; 
CHANGE:  "  GET  MSUP; 

PICTURE  "Bl" 

READ 

GOTO  TOP 

*LOCATE  THE  DESIRED  SUPPLEMENT* 

*— FOR  A  GIVEN  PUBLICATION—* 

LOCATE  FOR  PUBNUM  -  ‘AMPUBNUM*; 

JIND.  SUP  >  ‘AMSUP* 

DO  WHILE  FOUNOO 

*-SET  SCREEN  FORMAT  FOR  CHANGING-* 
*— DATA  IN  SUPPLEMENT  FILE—* 

SET  FORMAT  TO  FCIF2 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  I 

ENDDO 

CASE  CHOICE  •  3 

*OPEN  DATABASE  FOR  CHANGING  DATA* 

*— IN  CHANGE  FILE—* 

USE  FCIF3  INDEX  FCIF3 

*  - INITIALIZE  MEMORY  VARIABLES - * 

STORE  "  "  TO  MPUBNUM 

STORE  "  "  TO  MCHANGE 

CLEAR 

*-ENTER  MEMORY  VARIABLES  AT  THE-* 

*— SCREEN  PROMPT—* 

B  5.5  SAY  "ENTER  THE  BASIC; 
PUBLICATION:  "  GET  MPUBNUM; 

PICTURE  "Bl" 

B  6.5  SAY  "ENTER  THE  CHANGE  TO  EDIT; 
:  "  GET  MCHANGE; 

PICTURE  "Bl" 

READ 

GOTO  TOP 

*LOCATE  THE  DESIRED  CHANGE  TO* 


*OPEN  DATABASE  FOR  SUPPLEMENTS* 

*— TO  PUBLICATIONS—* 

JINO.  CHANGE  -  'AMCHANGE' 

DO  WHILE  FOUNOO 

*SET  SCREEN  FORMAT  FOR  CHANGE  DATA* 
SET  FORMAT  TO  FCIF3 

*  - EDIT  ON  THE  NEXT  RECORD - * 

EDIT  NEXT  I 

ENDDD 

CASE  CHOICE  -  4 

*  - OPEN  DATABASE  FOR  IMCS - * 

USE  FCIF4  INDEX  FCIF4 

*  - INITIALIZE  MEMORY  VARIABLES—* 

STORE  "  "TO  MPUBNUM 

STORE  "  "  TO  MIMC 

CLEAR 

*  - ENTER  MEMORY  VARIABLES  AT - * 

* - SCREEN  PROMPT - * 

B  5.5  SAY  ."ENTER  THE  BASIC; 
PUBLICATION:  "  GET  MPUBNUM; 

PICTURE  "Bl" 

B  6.5  SAY  ■  ENTER  THE  INC  TO; 
EDIT:  ■  GET  NINC; 

PICTURE  "Bl" 

READ 
GOTO  TOP 

*  - LOCATE  THE  DESIRED  INC - * 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM'; 

JIND.  INC  •  'AN INC 
DO  WHILE  FOUNDO 

*SET  SCREEN  FORMAT  FOR  CHANGING* 

*— DESIRED  IMC— * 

SET  FDRNAT  TO  FCIF4 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  1 

ENDDO 

CASE  CHOICE  -  5 

*OPEN  DATABASE  FOR  READ  FILE  ITEMS* 
USE  FCIF5  INDEX  FCIF5 

*  - INITIALIZE  MEMORY  VARIABLES—* 

STORE  "  "  TO  NCONTNUN 

CLEAR 

*  - ENTER  MEMORY  VARIABLES  AT - * 
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*— THE  GIVEN  PUBLICATION—* 


* - SCREEN  PROMPT - * 


LOCATE  FOR  PUBNUN  -  'BMPUBNUM'i 
OF  ITEM  TO  CHANGE:  *  GET  MCONTNUM; 
PICTURE  "•I" 

READ 
GOTO  TOP 

^LOCATE  THE  DESIRED  READ  FILE  ITEM* 

LOCATE  FOR  CONTNUM  -  ‘AMCONTNUM* 

DO  WHILE  FOUNDO 

*SET  SCREEN  FORMAT  FOR  CHANGING* 

*— READ  FILE  ITEMS—* 

SET  FORMAT  TO  FCIFS 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  1 

ENDDO 

ENDCASE 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO - * 

CHOICE  -  0 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 


»  5.5  SAY  'ENTER  THE  CONTROL  NUMBER; 

RETURN 

ELSE 

*  - SET  SCREEN  FORMAT  FOR - * 

*— AF  F0RM847  FORMAT—* 

SET  FORMAT  TO  F847.FMT 
*LOCATE  THE  DESIRED  AF  FORM  847* 
LOCATE  FOR  NUMBER  -  'AMCONTNUM' 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  1 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO - * 

CHOICE  -  0 

*  - -RETURN  TO  MAIN  MENU - * 

RETURN 


*AF  FORM  847  CHANGE  PROCEDURE* 


*  - OPEN  FORM  847  DATABASE - * 

CLEAR 

USE  F847  INDEX  F847 

*— LIST  TO  SCREEN  ALL  847'S— * 

*— STATUS,  UNIT,  NUMBER.  TITLE,—* 
*— AND  DATE—* 

DISPUY  ALL  STATUS.  UNIT  .  NUMBER,; 
TITLE.  DATE  OFF 

*  - INITIALIZE  MEMORY  VARIABLE - * 

STORE  ■  ■  TO  MCONTNUM 
? 

7 

*ENTER  MEMORY  VARIABLE  AT* 

*— SCREEN  PROMPT—* 

ACCEPT  "ENTER  CONTROL  NUMBER  OF; 

FORM  TO  EDIT:  *  TO  MCONTNUM 

*CHECK  FOR  EMPTY  MEMORY  VARIABLE* 
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IF  *  ■  -  ‘fcMCOHTHUM* 

CHO ICE-0 
CLOSE  DATABASES 

****************************  * - ekter  memory  VARIABLES  AT - * 

*AF  FORM  8  CHAN6E  PROCEDURE*  * - SCREEN  PROMPT - * 


*PROCEDURE  FOR  CHANGING  AF  FORMS  8* 
*OECLARE  VARIABLES  FOR  USE  IN  ALL* 

* - DATABASES - * 

SET  TALK  OFF 
CHOICE  -  0 

PUBLIC  MPOS.  MTESTl,  MTEST2.  NTEST3.: 
NTEST4.  MTESTS.  MTOATEl.  NT0ATE2,; 
NT0ATE3.  NT0ATE4,  MTDATES.  MSCOREl.: 
NSC0RE2.  NSC0RE3.  NSC0RE4.  MSCORES.; 
MLNANE.  MFNAME.  NUPOATE.  MZONEl.; 
MEVALOATE.  MEXP.  MZONE.  HTYPE.: 
MCONTNUM.  MCOUNT.  TEST.  MACFT.  MPOS 
CLEAR 


•  24.5  SAY  ■  ENTER  CONTROL  NUMBER; 
OF  FORM  8  TO  VIEW:  *  GET  MCONTNUM 
READ 

CLEAR 

ENDOO 

*  - CHECK  FOR  EMPTY  MEMORY - * 

* - VARIABLE - * 

IF  MCONTNUM  -  0 
CHOICE  -  0 
CLOSE  DATABASES 
RETURN 
ENDIF 


STORE 

CTOO(*  / 

/ 

*)  TO  MTOATEl 

ELSE 

STORE 

CTOO  *  / 

/ 

*1  TO  MT0ATE2 

ENDIF 

STORE 

CTOOi  *  / 

/ 

*)  TO  MTDATE3 

CLEAR 

STORE 

CTOO*  / 

/ 

*)  TO  MT0ATE4 

»  5.5  SAY  ‘ENTER  DATE  FLIGHT; 

STORE 

CTOO(*  / 

/ 

*)  TO  MTDATES 

EVALUATION  COMPLETED:  *; 

STORE 

m 

TO  MSCOREl 

GET  MEVALOATE; 

STORE 

• 

m 

TO  MSC0RE2 

PICTURE  'CTOOC*  /  /  *)■ 

STORE 

m 

m 

TO  MSC0RE3 

READ 

STORE 

■ 

m 

TO  MSC0RE4 

STORE 

■ 

m 

TO  MSCORES 

*— LOCATE  FORM  8  WITH  REQUESTED--* 

STORE 

« 

*  TO  MTESTl 

*— CONTROL  NUMBER—* 

STORE 

*  TO  MTEST2 

STORE 

• 

*  TO  MTEST3 

LOCATE  FOR  CONTNUM  -  MCONTNUM; 

STORE 

■ 

*  TO  MTEST4 

MTYPE  ■  FLTI 

STORE 

m 

*  TO  MTESTS 

SELECT  2 

STORE 

m 

*  TO  MLNAME 

USE  TYPE  EVA 

STORE 

« 

*  TO  MFNAME 

LOCATE  FDR  TYPE  •  TRIM('SMTYPE‘) 

STORE 

a 

*  TO  MTYPE 

MUPDATE  -  UPDATE 

STORE 

m 

*  TO  MZONEl 

MZONE  •  ZONE 

STORE 

• 

a 

TO  MACFT 

SELECT  1 

STORE  *  *  TO  MUPDATE 
STORE  0  TO  MZONE 

• - OPEN  FORMS  DATABASE  AND - * 

* - INDEX  IN  AREA  ONE - * 

SELECT  I 

USE  FORMS  INDEX  FORMS 
*— INITIALIZE  MEMORY  VARIABLES—* 


STORE  0  TO  MCONTNUM 
STORE  96  TO  MCOUNT 
STORE  0  TO  TEST 
STORE  CTODC  /  / 
STORE  CTODC"  /  / 
CLEAR 

i  l.I  SAY  "  CONT  » 
TYPE  EVALUATION 
7 

GOTO  TOP 


TO  MEXP 
TO  MEVALOATE 


NAME; 

DATE* 


MLNAME  -  LNAME 
MFNAME  -  FNAME 
MPOS  -  POSITION 
DO  CASE 

CASE  MZONE  -  17 
MEXP  -  MEVALOATE 
DO  CASE 

CASE  OTOC(MEVALDATE)  -(“//■) 
MEXP  -  MEVALOATE 

CASE  DTOC(MEVALOATE)  <>("//  “) 
DO  CASE 

CASE  MEXP  >-  CTOO(*0 1/09/91*): 

.AND.  MEXP  <•  CTQO(*29/02/92^  .OR.  ; 
MEXP  >-  CTQD(*0 1/09/9 5*)  .AND.  MEXP; 


*L1ST  TO  SCREEN  CONTROL  NUMBERS.* 
*NAME.  TYPE  AND  COMPLETION  DATE* 

DO  HHILE  .NOT.  EOF()  JkNO. ; 
MCONTNUM  -  0 

OISPUY  NEXT  IS  CONTNUM.  ; 


.AND.  MEXP  <•  CTQO(*29/OZ/92‘’) 
MEXP  >-  CTQD(*0 1/09/9  5*)  .AND. 
<-  CT00(*29/02/96*)  .OR.  MEXP; 
>-  CT00C*01/09/99*J  JINO.  MEXP  ; 
<-  CT00r29/02/00'^) 

IF  LEFT(0T0C(MEXP).5)  -  *01/01* 
MEXP  -  MEXP  517 
ELSE 

IF  VAL(STR(MONTH(MEXP)))  -  1 

MEXP  -  MEXP  516 

ELSE 

IF  VAL(STR(MONTH(^MEXP)))  >-  2; 
JIND.  VAL(STR(MONTH(MEXP)))  <- 
MEXP  -  MEXP  *  519 
ELSE 

IF  LEFT(DT0C(MEXP).5)  -  *01/09* 
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TRIH(LIIAME)  +  •  '  +  l.EFT(FMAME,l).  ; 
FLTl.  COHPOATE  FOR  STATUS; 

<>  'CLOSED"  OFF 
NEXP  •  NEXP  *  519 
ELSE 

IF  VAL(STR(NONTH(NEXP)))  -  9; 

.OR.  VAL(STR(MONTH(NEXP)))  -  10; 
.OR.  VAL(hR(NONTH(MEXP))}  -  11; 

.OR.  VAL(STR(NONTH(MEXP)))  -  12 

NEXP  -  NEXP  *  517 

ELSE 

ENOIF 

CASE  LEFT{DT0C(NEXP).5)  -  'Ol/Ol' 

NEXP  -  NEXP  *  516 

CASE  VAL(STR(NONTH(NEXP)))  -  1 

NEXP  -  NEXP  *  515 

CASE  VAL(STR(NONTH(NEXP)))  >-  2; 

.AND.  VAL(STR(NONTH(NEXP}))  <-  8 
NEXP  -  NEXP  +518 
CASE  LEFT(DT0C(NEXP).5}  -  '01/09*; 
.OR.  LEFT(0T0C(NEXP).5)  -  '01/10'; 
.OR.  LEFT(0T0C(NEXP),5)  -  *01/11*; 

.OR.  LEFT(DT0C(NEXP).5)  -  *01/12" 
NEXP  -  NEXP  +  SIR 
CASE  VAL(STR(NONTH(NEXP})}  -  9; 
.OR.  VAL(STR(NONTH(NEXP))]l  -  10; 

.OR.  VAL{STR(NONTH(NEXP)))  -  11  ; 

.OR.  VAL(STR(NONTH(NEXP}))  -  12 

NEXP  -  NEXP  +  516 

ENOCASE 

IF  OTOC(N£XP)  <>(*//') 

DO  CASE 

CASE  0T0C(0ATE2)  •('//*) 
REPLACE  EXPl  WITH  TRIN(FLT1)  +; 

*:  '  ♦  LEFT(CN0NTH(NEXP),3)  ♦  '  *; 

+  R16HT(STR(yEAR(NEXP),4).2) 

REPUCE  FLT2  WITH  FLTl 
REPUCE  0ATE2  MITH  NEVALDATE 
CASE  0T0C(0ATE3)  •('//') 
REPUCE  EXPl  WITH  TRIN(FLTl)  +; 

':  '  ♦  LEFT(CN0NTH(NEXP),3)  ♦  '  '; 

+  RIGHT(STR(yEAR(NEXP).4).2) 

REPUCE  FLT3  WITH  FLTl 
REPUCE  0ATE3  WITH  NEVALDATE 
CASE  DT0C(0ATE4)  -  ('  /  /  ") 

REPUCE  EXPl  UlTH  TR1N(FLT1}  +; 

':  '  ♦  LEFT(CN0NTH(NEXP).3)  +  '  *; 

+  R1GNT(STR(YEAR(NEXP).4).2) 

REPUCE  FLT4  WITH  FLTl 
REPLACE  0ATE4  WITH  NEVALDATE 
CASE  DT0C(DATE5)  -("//') 
REPUCE  EXPl  WITH  TRIN(FLTI)  +; 

';  *  ♦  LEFT(CN0NTH(NEXP),3)  +  " 

+  RI6HT(STR(YEAR(NEXP}.4}.2) 

REPUCE  FLT5  WITH  FLTl 
REPUCE  OATES  WITH  NEVALDATE 
ENOCASE 
ELSE 

NEXP  -  NEVALDATE 
ENDIF 
ENOCASE 
SELECT  3 

STORE  0  TO  N RECORD 
USE  INOIV  INDEX  INDIV 
LOCATE  FOR  LNANE  *  TRIN(NLNANE); 
AHD.  FNANE  -  TRIN(NFNANE) 

NRECORO  -  RECNOO 
DO  CASE 


.OR.  LEFT(DT0C(NEXP),5)  •  *01/10'; 
.OR.  LEFT(DT0C(NEXP),5)  -  *01/11*; 
.OR.  LEFT(0T0C(NEXP).5)  ■  *01/12* 
LEFT(CN0NTH(NEVALDATE).3)  +  *  *; 

+  RIGHT(STR( (YEAR(NEVALDATE)+1 ) ; 
.4), 2)+*  -  *+LEFT(CN0NTHiNEXP),3; 

*  ‘+RIGHT(STR(YEAR(NEXPn4).2) 
REPUCE  EXPIREI  WITH  NEXP 
ENDIF 

CASE  NTYPE  -  "TACTICAL* 

IF  OTOC(NEXP)  <>(*//  *i 
REPUCE  Z0NE2  WITH 
LEFT(CN0NTH(NEVAL0ATE).3)+*  *: 
+RIGHT(STR((YEAR(NEVALOATE)+l); 
,4),2j+''  -  %LEFT(CNONTH(NEXP); 
.3K  *+RIGHT(STR(YEAR(NEXP).4}.2) 
REPLACE  EXPIRE2  WITH  NEXP 
ENDIF 

CASE  NTYPE  -  "NISSION* 

IF  DTOC(NEXP)  <>  (*  /  /  *) 

REPUCE  Z0NE3  WITH 
LEFT(CN0NTH(NEVALDATE).3)+*  *; 
+RIGHT(STR((YEAR(NEVALDATE)+1}; 
,4),2)+*  -  **LEFT(CNONTH(NEXP),; 

3) +*  *+RlGHT(STR(YEAR(NEXP).4).2) 
REPUCE  EXPIRES  WITH  NEXP 

ENDIF 

CASE  NTYPE  -  "TAC/QUAL* 

IF  DTOC(NEXP)  <>  ('  /  /  *) 

REPUCE  Z0NE4  WITH 
LEFT[cN0NTH(NEVALDATE).3)+*  *; 
+RIGHT(STR((YEAR(NEVALDATE)+1)>; 

4) ,2)+*  -  '•+LEFT(CN0NTH(NEXP),3); 

HRI6HT(STR(YEAR(NEXP),4),2) 
REPLACE  EXPIRE4  WITH  NEXP 
ENDIF 
ENOCASE 


l:t{ : 


•‘V. 


SELECT  1 

NTDATEl  -  TOATEl 
NTDATE2  -  TDATE2 
NTDATE3  -  TDATE3 
NTDATE4  -  TDATE4 
NTDATE5  -  T0ATE5 
NSCOREl  -  SCORE 1 
NSC0RE2  -  SC0RE2 
NSC0RE3  -  SCORES 
NSC0RE4  -  SC0RE4 
NSC0RE5  -  SCORES 
NTESTl  •  TESTl 
NTEST2  -  TEST2 
NTEST3  -  TESTS 
NTEST4  •  TEST4 
NTEST5  -  TESTS 
NACFT  -  ACFT 

*  - SET  SCREEN  FORNAT  TO - * 

*  - FORN  8  CHANGE  FORNAT - * 

SET  FORNAT  TO  F0RN8 
READ 

EDIT  NEXT  0 

*  - CLOSE  FILES - * 


CLOSE  ALL 
SELECT  1 
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CASE  HTYPE  »  "IMST/QUAL* 

IF  OTOC(MEVALOATE)  <>(“//  *) 

REPLACE  ZONEl  WITH 
REPLACE  TDATEl  WITH  HTOATEl 
ENOIF  ^  , 

IF  DTOC(MTDATE2)  <>  (*  /  /  ") 

REPLACE  TDATE2  WITH  HT0ATE2 
ENOIF 

IF  0T0C{MT0ATE3)  <>  ("  /  /  *) 

REPLACE  TDATE3  WITH  MT0ATE3 
ENOIF 

IF  0T0C(MT0ATE4)  <>  ("  /  /  *) 

REPLACE  T0ATE4  WITH  MT0ATE4 
ENOIF 

IF  0T0C(MT0ATE5)  <>(*//  ') 

REPLACE  TDATE5  WITH  MTOATE5 
ENOIF 

IF  SCOREl  <>  ■ 

REPLACE  SCOREl  WITH  NSCOREl 
ENOIF 

IF  SC0RE2  <>  “ 

REPUCE  SC0RE2  WITH  HSCORE2 
ENOIF 

IF  SCORES  <>  • 

REPLACE  SCORES  WITH  HSC0RE3 
ENOIF 

IF  SC0RE4  <>  • 

REPLACE  SC0RE4  WITH  MSC0RE4 
ENOIF 

IF  SCORES  <>  •  •  . 

REPLACE  SCORES  WITH  NSCORE5 
ENOIF 
SELECT  2 

USE  INOIV  INOEX  INOIV 
GOTO  NRECORO 
00  CASE 

CASE  OTOC(MTOATEl)  <>  ("  /  /  *) 

IF  MTESTl  -  'OPEN  BOOr 

REPLACE  OPENBOOK  WITH  NTOATEl 

REPLACE  SCOREl  WITH  NSCOREl 

ELSE 

ENOIF 

IF  NTESTl  ■  'CLOSEO  BOOK" 

REPLACE  CLOSEOBOOK  WITH  HTOATEl 
REPLACE  SCOREl  WITH  NSCOREl 
ELSE 
ENOIF 

IF  NTESTl  •  'INSTRUHENT' 

REPLACE  INSTRUNENT  WITH  NTOATEl 
REPUCE  SCOREl  WITH  NSCOREl 
ELSE 
ENOIF 

IF  NTESTl  -  "TACTICAL" 

REPLACE  TACTEST  WITH  NTOATEl 
REPUCE  SCOREl  WITH  NSCOREl 
ELSE 
ENOIF 

IF  HTYPE  -  "INST/QUAL"  ^NO.; 
NTESTl  -  "EPE" 

REPUCE  SCOREl  WITH  NSCOREl 
REPLACE  lEPE  WITH  NTOATEl 
ELSE 
ENOIF 

IF  HTYPE  -  "TACTICAL"  .ANO.i 
NTESTl  -  "EPE" 

REPLACE  SCOREl  WITH  NSCOREl 
REPLACE  TEPE  WITH  NTOATEl 


USE  F0RN8  INOEX  F0RN8 
LOCATE  FOR  CONTNUN  -  NCONTNUN 
IF  OTOC(NTOATEl)  <>("//  ") 

00  CASE 

CASE  DT0C(NT0ATE2)  <>("//  ") 

IF  NTEST2  -  "OPEN  BOOK" 

REPLACE  OPENBOOK  WITH  NT0ATE2 
REPLACE  SC0RE2  WITH  NSC0RE2 
ELSE 
ENOIF 

IF  NTEST2  -  "CLOSEO  BOOK" 

REPUCE  CLOSEOBOOK  WITH  NT0ATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 
ELSE 
ENOIF 

IF  NTEST2  ■  "INSTRUNENT" 

REPUCE  INSTRUNENT  WITH  NT0ATE2 
REPLACE  SC0RE2  WITH  NSC0RE2 
ELSE 
ENOIF 

IF  NTEST2  -  "TACTICAL" 

REPLACE  TACTEST  WITH  NT0ATE2 
REPLACE  SC0RE2  WITH  NSC0RE2 
ELSE 
ENOIF 

IF  HTYPE  -  "INST/QUAL"  .ANO.  ; 
NTEST2  -  "EPE" 

REPLACE  lEPE  WITH  NT0ATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 
ELSE 
ENOIF 

IF  HTYPE  “  "TACTICAL"  .ANO.  ; 
NTEST2  •  "EPE" 

REPLACE  TEPE  WITH  NT0ATE2 
REPUCE  SC0RE2  WITH  NSC0RE2 
ENOIF  ,  , 

CASE  0T0C(NTDATE2)  •  ("  /  /  ") 

ENOCASE 

00  CASE 

CASE  0T0C(NT0ATE3)  <>  ("  /  /  ") 

IF  NTEST3  •  "OPEN  BOOK" 

REPUCE  OPENBOOK  WITH  HT0ATE3 
REPUCE  SCORES  WITH  NSC0RE3 
ELSE 
ENOIF 

IF  NTEST3  ■  "CLOSEO  BOOK" 

REPUCE  CLOSEOBOOK  WITH  NT0ATE3 
REPUCE  SCORES  WITH  NSC0RE3 
ELSE 
ENOIF 

IF  NTEST3  ■  "INSTRUNENT" 

REPUCE  INSTRUNENT  WITH  HT0ATE3 
REPUCE  SCORES  WITH  NSC0RE3 
ELSE 
ENOIF 

IF  NTEST3  -  "TACTICAL" 

REPLACE  TACTEST  WITH  NTOATES 
REPLACE  SCORES  WITH  NSCORES 
ELSE 
ENOIF 

IF  HTYPE  ■  "INST/QUAL"  .ANO.; 
HTEST3  -  "EPE" 

REPLACE  lEPE  WITH  NTOATES 
REPUCE  SCORES  WITH  NSCORES 
E-LSE 
ENOIF 

IF  HTYPE  -  "TACTICAL"  .ANO.; 
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EHOIF  ^  , 

CASE  OTOC(MTOATEl)  -  C  /  /  ") 

ENOCASE 

EAOIF  ,  , 

CASE  DT0C(MTDATE3)  -  C  /  /  *) 

ENOCASE 

00  CASE 

CASE  0T0C(MT0ATE4)  <>("//  ") 

IF  HTEST4  -  "OPEN  BOOK* 

REPLACE  OPENBOOK  MITH  NT0ATE4 
REPLACE  SC0RE4  WITH  MSC0RE4 
ELSE 
ENOIF 

IF  NTEST4  -  "CLOSEO  BOOK* 

REPLACE  CLOSEOBOOK  WITH  NT0ATE4 
REPUCE  SC0RE4  WITH  MSC0RE4 
ELSE 
ENOIF 

IF  NTEST4  -  *INSTRUHENT* 

REPLACE  INSTRUMENT  MITH  NT0ATE4 
REPLACE  SC0RE4  MITH  HSC0RE4 
ELSE 
ENOIF 

IF  MTEST4  -  *TACTICAL* 

REPUCE  TACTEST  MITH  MT0ATE4 
REPUCE  SC0RE4  MITH  MSC0RE4 
ELSE 
ENOIF 

IF  MTYPE  -  *INST/qUAL*  .ANO.  i 
MTEST4  -  *EPE* 

REPLACE  lEPE  MITH  NT0ATE4 
REPLACE  SC0RE4  MITH  MSC0RE4 
ELSE 
ENOIF 

IF  MTYPE  •  *TACTICAL*  JiHO.i 
MTEST4  -  *EPE* 

REPLACE  TEPE  MITH  MT0ATE4 
REPUCE  SC0RE4  MITH  MSC0RE4 
ENOIF  .  . 

CASE  OTOC(MTOATE4)  -(*//*) 
ENOCASE 

00  CASE  ,  , 

CASE  0T0C(MT0ATE5)  <>  (*  /  /  *) 

IF  MTEST5  ■  *OPEN  BOOK* 

REPLACE  OPENBOOK  MITH  MTOATES 
REPUCE  SCORES  MITH  MSCORES 
ELSE 
ENOIF 

IF  MTEST5  -  *CLOSEO  BOOK* 

REPUCE  CLOSEOBOOK  MITH  MTOATES 
REPUCE  SCORES  MITH  MSCORES 
ELSE 
ENOIF 

IF  MTESTS  -  "INSTRUMENT* 

REPLACE  INSTRUMENT  MITH  MTOATES 
REPUCE  SCORES  MITH  MSCORES 
ELSE 
ENOIF 

IF  MTESTS  -  "TACTICAL* 

REPLACE  TACTEST  MITH  MTOATES 
REPLACE  SCORES  MITH  MSCORES 
ELSE 
ENOIF 

IF  MTYPE  -  ■INST/QUAL*  .ANO.; 
MTESTS  -  'EPE* 

REPLACE  lEPE  MITH  MTOATES 
REPUCE  SCORES  MITH  MSCORES 
ELSE 


MTEST3  -  "EPE* 

REPLACE  TEPE  MITH  MT0ATE3 
REPUCE  SC0RE3  MITH  MSC0RE3 
REPUCE  TEPE  MITH  MTOATES 
REPUCE  SCORES  MITH  MSCORES 
ENOIF 

CASE  OTOC(MTOATES)  -(*//*) 

ENOCASE 

CLOSE  ALL 

CLEAR 

* - INITIALIZE  MEMORY  VARIABLE - * 

STORE  0  TO  MOPT 

"—ENTER  MEMORY  VARIABLES--'* 

*— AT  SCREEN  PROMPT - * 

»  S.S  SAY  "(1)  AOO  OISCREPANCIES* 

«  S.S  SAY  *(2)  CHANGE; 
DISCREPANCIES:  *  GET  MOPT 
READ 

"—CHECK  CONDITION  ANO  BEGIN—" 
"—LOOP  AS  NECESSARY—" 

00  CASE 
CASE  MOPT  -  1 

CLEAR 

STORE  *  *  TO  MRESPONSE 
STORE  CTODC  /  /  *)  TO  MCOMPOATE 

STORE  *  *  TO  MEXAMINER 

»  2.  S  SAY  *  EPE  DISCREPANCIES* 

«  9.  10  SAY  "ENTER  EXAMINER'S; 

NAME  ADMINISTERING  EPE:  *; 

GET  MEXAMINER; 

PICTURE  *»l* 

«  10  ,  10  SAY  "ENTER  DATE  OF  THE; 
EVALUATION:  *  GET  MCOMPOATE 
«  13  ,10  SAY  "ENTER  AN  EPE; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 
(Y)  FOR  YES:  ”  GET  MRESPONSE; 
PICTURE  "Bl* 

READ 
SELECT  3 

USE  EPEOIS  INDEX  EPEOIS 
SELECT  S 

IF  MPOS  •  ’P*  .OR.  MPOS  ■  "IP*  .OR.; 
MPOS  -  "CP* 

USE  EPEHUPS  INDEX  EPEWUPS 
ELSE 

USE  UEPHUPS  INDEX  UEPUUPS 
ENOIF 

00  WHILE  MRESPONSE  -  *Y* 

CLEAR 
SELECT  3 
APPEND  BLANK 
STORE  0  TO  MAREA 
STORE  *  *  TO  MSUBAREA 

STORE  * 

"  TO  HAREANAME 

9  5.5  SAY  "ENTER  AREA  ANO  SUBAREA; 
NUMBER  OF  DISCREPANCY:  *  GET  MAREA 
9  5.  65  GET  MSUBAREA 
READ 

SELECT  5 

LOCATE  FOR  AREA  -  MAREA  .ANO.; 
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ENDIF 

IF  MTYPE  •  -TACTICAL'  .AAO. J 
MTEST5  -  -EPE- 

9  5.5  SAY  -  NOT  A  VALID  AREA* 

DELETE 

PACK 

ELSE 

HAREANANE  -  AREANANE 
SELECT  3 

REPLACE  AREANANE  WITH  'AMAREANANE* 
REPLACE  AREA  UlTH  MAREA 
REPLACE  SUBAREA  WITH  '&NSUBAREA* 
REPUCE  CONTNUH  UITH  NCONTNUH 
REPUCE  EXAMINER  KITH  ‘ANEXANINER* 
REPUCE  TYPE  UITH  'ANTYPE* 

REPUCE  CONPOATE  UITH  NCONPOATE 
REPUCE  ACFT  UITH  'ANACFT* 

REPUCE  POSITION  UITH  'AMPOS' 

SET  FORMAT  TO  EPEOIS 
EDIT  NEXT  1 
CLOSE  ALL 

STORE  ■  -  TO  NRESPONSE 
STORE  0  TO  MAREA 
STORE  -  -  TO  NSUBAREA 

CLEAR 
SELECT  3 

USE  EPEOIS  INDEX  EPEOIS 
SELECT  5 

IF  MPOS  ■  -P-  .OR.  MPOS  ■  -IP-  .OR.; 
MPOS  -  -CP- 

USE  EPEUUPS  INDEX  EPEUUPS 
ELSE 

USE  UEPUUPS  INDEX  UEPUUPS 
ENDIF 

9  10  .  2  SAY  -ENTER  ANOTHER  EPE 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 

(Y)  FOR  YES:  -  OET  MRESPONSE; 

PICTURE  -91- 

REAO 

ENDIF 

ENOOO 

CLOSE  ALL 

CLEAR 

*  - OPEN  FLIGHT  DISCREPANCY - • 

• - DATABASE - • 

INITIALIZE  MEMORY  VARIABLES - * 

STORE  -  -  TO  MRESPONSE 

STORE  CTOO(-  /  /  -J  TO  MOATE 

STORE  -  -  TO  NEXANINER 

*  - ENTER  MEMORY  VARIABLES - * 

* - AT  SCREEN  PROMPT - * 

9  2.  5  SAY  -  FLIGHT  OISCREPANCIES- 
9  9.  10  SAY  -ENTER  LAST  NAME  OF; 
FLIGHT  EXAMINER:  -  GET  NEXANINER; 
PICTURE  -91- 

9  10.  10  SAY  -ENTER  DATE  OF  THE; 
EVALUATION:  -  GET  MOATE 
9  13.  2  SAY  -ENTER  A  FLIGHT; 
DISCREPANCY:  RETURN  FOR  (NO)  OR; 
(Y)  FOR  YES:  -  GET  NRESPONSE; 
hCTURE  -91- 
REAO 

SELECT  2 


SUBAREA  -  NSUBAREA 
IF  .NOT.  FOUNDO 
CLEAR 

MPOS  -  -CP- 

USE  FLTUUPS  INDEX  FLTUUPS 
ELSE 

USE  UFLTUPS  INDEX  UFLTUPS 
ENDIF 

DO  UHILE  NRESPONSE  -  -Y- 

CLEAR 

SELECT  2 

APPEND  BUNK 

STORE  0  TO  MAREA 

STORE  -  -  TO  NSUBAREA 

STORE  - 

-  TO  NAREANANE 

9  5.5  SAY  -ENTER  AREA  AND  SUBAREA; 
NUMBER  OF  DISCREPANCY:  -  GET  MAREA 
9  5.65  GET  NSUBAREA 
READ 

SELECT  5 

LOCATE  FOR  AREA  -  MAREA  .AND. ; 
SUBAREA  -  NSUBAREA 
IF  .NOT.  FOUNDO 
CLEAR 

9  5.5  SAY  -  NOT  A  VALID  AREA- 

DELETE 

PACK 

ELSE 

NAREANANE  -  AREANANE 
SELECT  2 

REPUCE  AREANANE  UITH  'ANAREANAME* 
REPUCE  AREA  UITH  MAREA 
REPUCE  SUBAREA  UITH  'AMSUBAREA* 
REPLACE  CONTNUM  UITH  NCONTNUN 
REPUCE  EXAMINER  UITH  'ANEXANINER' 
REPUCE  FLTl  UITH  'ANTYPE' 

REPUCE  CONPOATE  UITH  MOATE 
REPUCE  ACFT  UITH  'AMACFT' 

REPUCE  POSITION  UITH  'AMPOS' 

SET  FORMAT  TO  FLTDIS 
EDIT  NEXT  1 
CLOSE  ALL 

STORE  -  -  TO  NRESPONSE 
STORE  0  TO  MAREA 
STORE  -  -  TO  NSUBAREA 

CLEAR 
SELECT  2 

USE  FLTDIS  INDEX  FLTDIS 
SELECT  5 

IF  MPOS  -  -P-  .OR.  MPOS  -  -IP-; 

.OR.  MPOS  -  -CP- 

USE  FLTUUPS  INDEX  FLTUUPS 

ELSE 

USE  UFLTUPS  INDEX  UFLTUUPS 
ENDIF 

9  10.  2  SAY  -ENTER  ANOTHER  FLIGHT; 

DISCREPANCY:  RETURN  FOR  (NO)  OR; 

(Y)  FOR  YES:  -  GET  MRESPONSE; 

PICTURE  -91- 

READ 

ENDIF 

ENDOO 

CLOSE  ALL 

* - CHECK  USER'S  INPUT - * 

CASE  NOPT  -  2 
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USE  FLTDIS  INDEX  FLTDIS 
SELECT  5 

IF  MPOS  -  "P"  .OR,  HPOS  -  "IP“  .OR. 
USE  EPEOIS  INDEX  EPEDIS 
GOTO  TOP 

• — LOCATE  FOR  REQUESTED—* 

* — CONTROL  NUMBER—* 

LOCATE  FOR  CONTNUN  -  NCONTNUN 

*— BEGIN  LOOP  FOR  REQUESTED—* 
*— CONTROL  NUMBER—* 

DO  WHILE  FOUNOO 
CLEAR 

SET  FORMAT  TO  EPEOIS 

*  - POSITION  FIELDS  ON  SCREEN - * 

EDIT  WHILE  CONTNUM  -  NCONTNUN 

CONTINUE 

ENOOO 

*  - CLOSE  FILES - * 

CLOSE  ALL 

*OPEN  FLIGHT  DISCREPANCY  DATABASE* 

USE  FLTDIS  INDEX  FLTDIS 
GOTO  TOP 

*LOCATE  REQUESTED  CONTROL  NUMBER* 

• - IN  DATABASE - * 

LOCATE  FOR  CONTNUN  -  NCONTNUN 

*— BEGIN  LOOP  FOR  REQUESTED — * 

* CONTROL  NUMBER * 

DO  WHILE  FOUNOO 
CLEAR 

SET  FORMAT  TO  FLTDIS 

*->-POSITION  FIELDS  ON  SCREEN—* 

• - TO  EDIT - * 

EDIT  WHILE  CONTNUN  -  NCONTNUN 

CONTINUE 

ENDDO 

*  - CLOSE  FILES - * 

CLOSE  ALL 
ENOCASE 


*-OPEN  EPE  DISCREPANCY  DATABASE-* 

SET  FORMAT  TO  SEC466.FMT 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  I 
ENDCASE 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO - * 

CHOICE  -  0 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 


*ACTION  CHANGE  PROCEDURE* 


*-OPEN  ACTION  DATABASE  AND  INDEX-* 
CLEAR 

USE  ACTION  INDEX  ACTION 
GOTO  TOP 

*-LIST  TO  SCREEN  STATUS.  CONTROL-* 
*-NUNBER.  TITLE  AND  ORIGINATOR-* 

7  ■  STATUS  CONTROL  #  SUBJECT; 
ORIGINATOR* 

DISPLAY  ALL  STATUS,*  *,  CONTNUN,; 
TITLE,  ORIGIN  OFF 

*  - INITIALIZE  MEMORY  VARIABLE - * 

STORE  *  *  TO  NCONTNUN 

7 

7 

*-ENTER  MEMORY  VARIABLE  AT-* 

*-SCREEN  PROMPT-* 

ACCEPT  *ENTER  ACTION  ITEM  NUMBER  TO; 
CHANGE:  *  TO  NCONTNUN 

*  - CHECK  ENTER  FOR  BLANK  FIELD—* 

IF  *  *  -  'AMCONTNUM* 

CLOSE  DATABASES 

RETURN 

ELSE 


* - OPEN  FORMS  DATABASE  AND - * 

*  - INDEX - * 

USE  FORMS  INDEX  FORMS 

GOTO  TOP 

CLEAR 

*— LOCATE  FOR  REQUESTED  CONTROL—* 

*  - NUMBER - * 


*  - SET  SCREEN  FORMAT  FOR - * 

* - ACTION  ITEM  CHANGES - * 

SET  FORMAT  TO  ACTION.FNT 
*— LOCATE  REQUESTED  ATION  ITEM—* 
LOCATE  FOR  CONTNUN  -  'ANCONTNUN* 

*  - EDIT  ONLY  NEXT  RECORD - * 

EDIT  NEXT  1 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO - * 
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LOCATE  FOR  CONTNUM  -  NCONTNUN  CHOICE  -  0 

SET  SCREEN  FORMAT  RENAINOER - *  * - RETURN  TO  MAIN  MENU - * 

* - OF  AF  FORM  8->-*  RETURN 


*SUPEVAL  CHANGE  PROCEDURE*  *INDIV10UAL  VIEW  PROCEDURE* 


*OPEN  SUPPLEMENTARY  EVALUATION* 
*-<OATABASE  AND  INDEX—* 

CLEAR 

USE  SUPEVAL  INDEX  SUPEVAL 
GOTO  TOP 

*  - INITIALIZE  MEMORY  VARIABLE - * 

STORE  "  "  TO  MAREA 

*— LIST  TO  SCREEN  STATUS.  AREA. — * 
*— DUE  DATE.  OPR—* 

«  1.1  SAY  'STATUS  AREA; 

DUE  DATE  OPR* 

7 

DISPLAY  ALL  STATUS.  AREA.  DATEDUE.; 

*  *.  OPR  OFF 
7 

7 

*ENTER  MEMORY  VARIABLE  AT  SCREEN* 

*— PROMPT— * 

ACCEPT  ‘ENTER  AREA  NAME  OF; 
SUPPLEMENTARY  EVALUATION  TO  EDIT:; 

■  TO  MAREA 

*  - SET  SCREEN  FORMAT  FOR - * 

*— SUPPLEMENTARY  EVALUATION—* 

* — DATA  CHANGES — * 

SET  FORMAT  TO  SUPEVAL 


*1NITIALIZE  MEMORY  VARIABLES* 

CLEAR 

STORE  0  TO  MREC 
CLEAR 

*ENTER  MEMORY  VARIABLES  AT  SCREEN* 

DO  WHILE  .NOT.  EOF()  .AND.  MREC  -  0 
DISPLAY  NEXT  18  TRIN(LNANE)**; 
■♦TRIM(FNAME)+*  •♦TRIM(MI)**  ".ACF 
i  24.  S  SAY  'ENTER  RECORD  NUMBER  TO 
VIEW:  *  GET  MREC 
READ 
CLEAR 
ENDOO 

*CHECK  FOR  EMPTY  MEMORY  VARIABLE* 

IF  MREC  -  0 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

ENDIF 

*LOCATE  THE  REQUESTED  RECORD* 

GOTO  MREC 
CLEAR 


*  - CHECK  USER'S  ENTRY - * 

IF  -  'AMAREA' 

CHOICE  >  0 
CLOSE  DATABASES 
RETURN 
ELSE 

*  - LOCATE  REQUESTED  AREA - * 

LOCATE  FOR  AREA  -  'AMAREA' 

*  - EDIT  ONLY  THE  NEXT  RECORD - * 

EDIT  NEXT  1 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RESET  CHOICE  EQUAL  TO  ZERO - 

CHOICE  -  0 
ENDIF 

*  - RETURN  TO  MAIN  MENU - * 


*DO  THE  FOLLOW ING  IF  RECORD  FOUND* 
*POSITIONS  FIELDS  ON  THE  SCREEN* 

»  1.  12  SAY  "PERSONAL  DATA; 

GROUND  PHASE  REQUISITES* 

•  3.  0  SAY  ‘LAST  NAME.; 

FIRST  Ml.  TYPE; 

DATE  SCORE* 


» 

4. 

0 

GET 

IND1V->LNANE 

B 

4. 

19 

GET 

1ND1V->FNANE 

8 

4. 

32 

GET 

IN01V->N1 

t 

5. 

0 

SAY 

■ORGANIZATION* 

» 

6. 

0 

GET 

1ND1V->0RGAN 

• 

7. 

0 

SAY 

‘LOCATION 

i 

8. 

0 

GET 

1N01V->L0CAT 

§ 

9, 

0 

SAY 

‘RANK  SSAN; 

ACFT. 

TYPE 

• 

10. 

0 

GET 

IND1V->RANK 

10. 

10 

GET 

IN01V->SSAN 

10. 

22 

GET 

IN01V->ACFT 

11. 

0 

SAY 

‘CREW  POSITION* 

12. 

0 

GET 

1NDIV->P0SIT10N 

4, 

42 

SAY 

‘OPEN  BOOK* 

4. 

57 

GET 

IN01V->0PENB00K 

4. 

67 

GET 

1N0IV->SC0RE1 

s. 

42 

SAY  ' 

■CLOSED  BOOK* 

5. 

57 

GET 

IND1V->CL0SE0B00K 

5. 

67 

GET 

IN0IV->SC0RE2 

6. 

42 

SAY 

‘INSTRUMENT* 

RETURN 


»  6.  57  GET  IN0IV->1NSTRUNENT 

»  7.  57  GET  IN0IV->1EPE 

•  7.  67  GET  IN0IV>>SC0RE4 

•  8,  42  SAY  *CAPS/BOLD  FACE* 

•  8.  57  GET  INOIV->CAPS 

•  8,  67  GET  1N01V->SC0RE5 

•  9,  42  SAY  •TACTICAL* 

•  9.  57  GET  INOIV->TACTEST 
8  9.  67  GET  1N01V->SC0RE6 

8  10.  42  SAY  *TAC  EPE* 

8  10.  57  GET  IN0IV->TEPE 

8  10.  67  GET  SC0RE7 

8  12.  49  SAY  ‘FLIGHT  EVALUATIONS* 

8  14.  25  SAY  "TYPE; 

EXPIRATION  ZONE* 

8  15.  25  SAY  *lNST/qUAL* 

SET  COLOR  TO  N/H 

IF  0T0C(EXPIRE1)  <>(*//  *) 

8  15.  45  SAY  LEFT(CNONTH(EXPlREi); 
.3H*  **R1GHT(STR(YEAR(EXP I  RE  1 )  .4) ; 
.2)+*  * 

ELSE 

8  15.45  SAY  *  * 

ENOIF 

SET  COLOR  TO  WVB 
8  IS.  55  GET  IN01V->Z0NE1 

8  16.  25  SAY  ‘TACTICAL* 

SET  COLOR  TO  N/U  .  . 

IF  0T0C(EXPIRE2)  <>(*//  *) 

8  16.  45  SAY 

LEFT(CN0NTH(EXP1RE2).3H*: 
‘■i>RIGHT(STR(YEAR(EXPIRE2).4).2)>*  * 
ELSE 

8  16.  45  SAY  *  * 

ENOIF 

SET  COLOR  TO  HVB 
8  16,  55  GET  IN01V>>Z0NE2 

8  17.  25  SAY  ‘MISSION* 

SET  COLOR  TO  N/U  ,  . 

IF  0T0C(EXPIRE3)  <>(*//  *) 

8  17.  45  SAY 

LEFT(CM0NTH(EXPlRE3),3)**i 
*>R16HT(STR(YEAR(EXP1RE3),4).2H*  * 
ELSE 

8  17,  45  SAY  * 

ENOIF 

SET  COLOR  TO  hVB 
8  17,  55  GET  1N01V>>Z0NE3 
8  18,  25  SAY  ‘TAC/qUAL* 

SET  COLOR  TO  N/H  .  , 

IF  OTOC(EXPIRE4)  <>  (*  /  /  *) 

8  18.  45  SAY 

LEFT(CN0NTH(EXP1RE4) .3)>* ; 
*4-Rt6HT(STR(YEAR(EXPIRE4).4).Z)+*  * 
ELSE 

8  18,  45  SAY  * 

ENOIF 

SET  COLOR  TO  hVB 
8  18,  55  GET  1N01V->Z0NE4 
8  19.  25  SAY  ‘qUALIFlCATlON* 

SET  COLOR  TO  N/M  ,  , 

IF  0T0C(EXPIRE5)  <>  (*  /  /  *) 

8  19,  45  SAY 

L£FT(CM0NTH(EXP1RE5) .3)^* ; 
‘♦R16HT(STR(YEAR(EXP1RES),4).2)-^*  * 

ELSE 

8  19,  45  SAY  *  * 

ENOIF 


SET  COLOR  TO  UVB 
8  19.  55  GET  1N0IV->Z0NE5 
8  20.  25  SAY  ‘INSTRUCTOR* 

SET  COLOR  TO  N/U 
IF  0T0C(EXPIRE6)  <>  (*  /  /  *) 

8  20,  45  SAY 
LEFT(CH0NTH(EXPIRE6),3)**: 
‘♦RI6HT(STR(YEAR(EXPIRE6).4).2h* 
ELSE 

8  20,  45  SAY  * 

ENOIF 

SET  COLOR  TO  M*/B 
8  20.  55  GET  INDIV->Z0NE6 
8  21.  25  SAY  ‘RIGHT/REAR  LANOING* 
SET  COLOR  TO  N/M 

IF  OTOC(REARUNO)  <>(*//  *) 

8  21.  45  SAY  LEFT(CNONTH(REARLANO); 

.3H*  *4-R1GHT(STR(YEAR(REARUN0).4} 
,2)**  * 

ELSE 

8  21,  45  SAY  *  * 

ENOIF 

SET  COLOR  TO  M4-/B 

• - CLEARS  TO  PREVENT  EOITING - * 

CLEAR  GETS 

•INTERUPTS  PROGRAM  UNTIL  KEY* 

*— IS  PRESSED--* 


MAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 
*RE1N1TIAL1ZE  CHOICE  TO  ZERO* 
CHOICE  -  0 

• - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

* - RETURN  TO  MAIN  MENU - * 

RETURN 


• - POSITIOM  FIELDS  ON  SCREEN - * 


*AF  FORK  8  VIEW  PROCEDURE* 
************************** 

*OECLARE  VARIABLES  OPEN  TO  ALL* 

*— DATABASES— * 

PUBLIC  MEXP.  NCONTNUN.  NCOUNT.: 

TEST.  NZONE 

CLEAR 

SET  TALK  OFF 

* - OPEN  APPROPRIATE  DATABASES - 

SELECT  1 

USE  FORMS  INDEX  FORMS 
SELECT  2 

USE  FLTDIS  INDEX  FLTDIS 
SELECT  3 

USE  EPEDIS  INDEX  EPEDIS 

SELECT  4 

USE  TYPE  EVA 

STORE  0  TD  NZONE 

STORE  0  TO  NCONTNUN 

NZONE  -  ZONE 

SELECT  1 

*LIST  TO  SCREEN  CURRENT  FORMS  B* 

B  1.1  SAY  'CONT  «  NAME; 

TYPE  EVALUATION  DATE* 

? 

GOTO  TOP 

DO  MHILE  .NOT.  EOF()  .AND.; 

NCONTNUN  •  0 

DISPLAY  NEXT  IB  CONTNUN.  TRIM; 

(LNANE)  *  •  •  *  LEFT(FNANE.l).  i 

FLTl.  CONPDATE  OFF 

B  24.  S  SAY  ‘ENTER  CONTROL  NUMBER; 

OF  FORM  8  TO  VIEM:  *  GET  NCONTNUN 

READ 

CLEAR 

ENOOO 

‘ENTER  MEMORY  VARIABLE  AT  SCREEN* 
‘—PROMPT—* 

‘INITIALIZE  MEMORY  VARIABLES* 

STORE  96  TO  NCOUNT 
STORE  0  TO  TEST 

STORE  •  ■  TO  MTYPEFLT 

STORE  CTOO(*  /  /  ■)  TO  MEXP 


‘CHECK  FOR  EMPTY  MEMORY  VARIABLE* 

IF  0  -  NCONTNUN 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ENDIF 

ELSE 

ENDIF 

* - LOCATE  REQUESTED  FORM  8 - * 

LOCATE  FOR  CONTNUM  -  NCONTNUN 
CLEAR 


B  0.  0  SAY  "CONTROL  NUMBER; 

STATUS  : 

DATE  CONPELETED* 

*  1.  0  GET  CONTNUN 

B  1.  30  GET  STATUS 

SET  COLOR  TO  N/H 

*1F  COMPLETE  DATE  NOT  BLANK*  *- 
TRANSFORM  TO  PROPER  FORMAT  AND-* 

*— DISPUY— * 

IF  DTOC(COMPDATE)  <>  ("  /  /  ■) 

B  1.  65  SAY  STR(DAY(C0NP0ATE).3); 

*  •  •  *  LEFT(CNONTH(CONPOATE),3); 

*  •  •  *  RIGHT(STR(YEAR(C0NPDATE).4); 

.2) 

ELSE 

B  1.  65  SAY  • 

ENDIF 

SET  COLOR  TO  uVB 
B  3.  0  SAY  ‘LAST  NAME  FIRST; 

Ml.  RANK; 

SSAN‘ 

SET  COLOR  TO  N/U 

B  4.  0  SAY  TR1N(LNANE)^‘; 

•♦TRIM(FNAME)+‘  •♦TRIM(RANK)*‘  ‘ 

SET  COLOR  TO  U‘/B 
B  4.  41  GET  RANK 

B  4.  61  GET  SSAN 
B  6,  0  SAY  ‘ORGANIZATION/LOCATION; 
ACFT/cREM  POSITION  ; 

ELIGIBILITY  PERIOD* 

*  7.  0  GET  ORGAN 

B  7.  39  GET  ACFT 

B  7.  61  GET  ELIGPER 

B  B.  0  GET  LOCAT 

B  B.  39  GET  POSITION 

B  10.  14  SAY  ‘GROUND  PHASE; 

FLIGHT  PHASE" 

B  11.  5  SAY  ‘TYPE  DATE; 

SCORE  TYPE  ; 

DATE" 

B  13.  0  GET  TESTl 
SET  COLOR  TO  N/H 

‘TRANSFORM  DATES  TO  PROPER  FORMAT* 
‘—AND  DISPLAY—* 


IF  DTOC(TDATEl)  <>  (‘  /  /  ") 

B  13.  17  SAY  STR(DAY(TDATEI).3h; 

‘  ‘  ♦  LEFT(CM0NTH(TDATE1).3); 

♦  ‘  ‘  ♦  RIGHT(STR(YEAR(T0ATE1).4).2) 
ELSE 

B  13.  17  SAY  ‘ 

ENDIF 

SET  COLOR  TO  HVB 
B  13.  28  GET  SCORE 1 
B  13.  41  GET  FLTI 


MTYPEFLT  •  FLTl 
SET  COLOR  TO  N/M 
IF  OTOC(OATEl)  <>  (‘  /  /  ") 

B  13.  62  SAY  STR(0AV(0ATE1).3)  *i 
‘  "  ‘  LEFT(CN0NTH(DATEl).3); 

*  •  •  *  RI6HT(STR(YEAR(0ATE1).4).2) 


ELSE 

•  13.  62  SAY  ■ 

ENOIF 

SET  COLOR  TO  UVB 
0  14.  0  GET  TEST2 

SET  COLOR  TO  N/U 
IF  DT0C(T0ATE2)  <>  (•  / 


0  14.  17  SAY  STR(DAY(T0ATE2).3)+; 

•  •  ♦  LEFT(CM0RTH(T0ATE2h3); 

♦  •  •  ♦  R16HT(STR(YEAR(T0ATE2).4).2) 
ELSE 

0  14.  17  SAY  ■ 

ENOIF 

SET  COLOR  TO  WB 
0  14.  28  GET  SC0RE2 

0  14.  41  GET  FLT2 

SET  COLOR  TO  N/U 
IF  0T0C(0ATE2)  <>("//  ') 

0  14.  62  SAY  STR(^DAY(0ATE2).3)  *i 

•  •  *  LEFT(CM0NTH(DATE2).3); 

*  •  •  *  R16HT(STR(YEAR(0ATE2).4).2) 

0  14.  62  SAY  • 

ENOIF 

SET  COLOR  TO  U*/t 
0  15.  0  GET  TESTS 

SET  COLOR  TO  N/U 
IF  0T0C(T0ATE3)  <>("//  ") 

0  IS.  17  SAY  STR(0AY(T0ATE3).3)-»; 

■  •  ♦  LEFT(CM0NTH(T0AT£3).3); 

♦  •  •  ♦  R1GHT(STR(YEAR(T0ATE3).4).2) 

0*'*15.  17  SAY  • 

ENOIF 

SET  COLOR  TO  UVB 
0  15.  28  GET  SCORES 

0  IS.  41  GET  FLT3 

SET  COLOR  TO  N/M 
IF  0T0C(0ATE3)  <>  (■  /  /  •) 

0  15.  62  SAY  STR(OAY(oATE3).3)  ♦ 

•  ■  +  LEFT(CN0NTH(0ATE3).3)  j 

♦  *  •  ♦  RI6HT(STR(YEAR{DATE3).4).2) 
ELSE 

0  15.  62  SAY  ■ 

ENOIF 

SET  COLOR  TO  UVB 
0  16.  0  GET  TEST4 

SET  COLOR  TO  N/H 
IF  0T0C(T0ATE4)  <>  ( ■  /  /  ■) 

0  16.  17  SAY  STR(0AY(T0ATE4).3)«i 

■  •  ♦  LEFT(CM0NTH(T0ATE4).3)  ; 

♦  ■  ■  ♦  RI6HT(STR(YEAR(T0ATE4).4).2) 
ELSE 

0  16.  17  SAY  • 

ENOIF 

SET  COLOR  TO  U*/i 
0  16.  28  GET  SC0RE4 

0  16.  41  GET  FLT4 
SET  COLOR  TO  N/H 
IF  0T0C{0ATE4)  <>  (■  /  /  ") 

0  16.  62  SAY  STR(0AY(0ATE4).3)  *i 

•  "  LEFT(CN0NTH(0ATE4).3)  ; 

RIGHT(STR(YEAR(0ATE4).4).2) 

ELSE 

0  16.  62  SAY  " 

ENOIF 

SET  COLOR  TO  M*/i 
0  17.  0  GET  TESTS 


SET  COLOR  TO  N/U 
IF  0T0C(T0ATE5)  <>  (•  /  /  *1 

0  17.  17  SAY  STR(0AY(T0ATE5).3)+i 

•  •  ♦  LEFT(CMONTH(TOATE5).3)  ; 

♦  "  “  ♦  RISHT(STR(YEAR(T0ATE5).4).2) 

0^*"^^.  17  SAY  • 

ENOIF 

SET  COLOR  TO  U*/i 
0  17.  28  GET  SCORES 
0  17.  41  GET  FLT5 
SET  COLOR  TO  N/H 
IF  0T0C(0ATE5)  <>  (■  /  /  ') 

0  17.  62  SAY  STR(0AY(0ATE5).3) 

•  •  *  LEFT(CNONTH(OATE5).3)  ; 

♦  *  ■  ♦  RI6MT(STR(YEARCBATE5).4).2) 
ELSE 

0  17.  62  SAY  • 

ENOIF 

SET  COLOR  TO  U*/t 
0  18.  30  SAY  "RESTRICTION: 

ADOITIONAL  TRAINING  OUE  OATES" 

0  20.  30  SAY  "YES  NO" 

0  21.  31  GET  RESTY 

0  21.  30  GET  RESTN 

SET  COLOR  TO  N/H 

*00  APPROPRIATE  STEPS  DEPENOING* 

*— ON  AOOITIONAL  TRAINING—* 

* — REQUIREMENTS—* 


00  CASE 

CASE  OTOC(AOOTRNl)  <>  ("  /  / 

ib.  0T0C(A00TRN2)  <>  ("  /  /  ") 

0  20.  55  SAY  "EPE:" 

0  20.  60  SAY 

STR(0AY(A00TRN1).3)  *  •  •  *  LEFT; 
(CN0NTH(AD0TRN1).3}  ♦  "  " 

^  R16HT(STR(YEARjA00TRNl}.4).2) 

0  21.  60  SAY  STR(0AY(A00TRN2).3): 

*  "  "  *  LEFT(CN0NTH(A00TRN2).3) 

"  "  *  R16HT(STR(YEAR(A00TRN2)^4).2) 


CASE  OTOCIAOOTRNl)  <>  (" 

.OR.  0T0C(A00TRN2)  <>  (" 

00  CASE 

CASE  OTOC(AOOTRNl)  <>  ("  /  /  ") 

0  20.  55  SAY  "EPE;" 

0  20.  60  SAY  STR(0AY(A00TRN1).3); 

*  "  "  *  LEFT(CN0NTH(A00TRN1}.3} 

"  "  *  RIGHT(STR(YEAR(AOOTRN1).4),2) 
CASE  0T0C(A00TRN2)  <>  ("  /  /  *) 

0  20.  55  SAY  "FLT:" 

0  20.  60  SAY  STR(0AY(A00TRN2).3): 

*  ■  •  ♦  LEFT{CM0NTHrA00TRN2).3)  ♦; 

*  "  *  R1GHT(STR(YEAR(A00TRN2).4).2) 
ENOCASE 

ENOCASE 

SET  COLOR  TO  HVB 
IF  0T0C{A00TRN1)  -  C  /  /  ") 

JINO.  0T0C(A00TRN2)  -('//") 
SET  COLOR  TO  N/H 
0  20.  62  SAY  "N/A" 

SET  COLOR  TO  H*/B 
ENOIF 

SET  COLOR  TO  Ht/B 
0  22.  8  SAY  '^EXPIRATION  DATE; 
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ADDITIONAL  TRAINING  COMPLETE  OATES" 
•  23.  6  GET  EXPl 


*ENTER  APPROPRIATE  FORMAT  BASED* 
*>-ON  ADDITIONAL  TRAINING—* 

*— REQU I REMENTS— * 

DO  CASE 

CASE  OTOC(ADOTRNl)  <>  ("  /  /  *}; 
JINO.  0T0C(A00TRN2)  <>(*//  *) 

•  23.  40  SAY  'EPE:* 

»  23.  45  GET  AOOCOMPI 

•  23.  54  SAY  "FLT:* 

•  23.  59  GET  A00C0NP2 

CASE  OTOC(ADOTRNl)  <>  (*  /  /  "h 
.OR.  0T0C(A00TRN2}  <>  ("  /  /  ')  . 
SET  COLOR  TO  N/U 
DO  CASE 

CASE  OTOC(ADOTRNl)  <>(*//  *) 

IF  OTOC(AOOCONPl)  <>(*//  ") 

•  23.  50  SAY  "EPE:* 

«  23.  60  SAY  STR(0AY(A00C0NPI),3); 

+  *  ‘  +  LEFT(CN0NTH(A00C0NP1).3)  *i 

•  "  *  RIGHT(STR(YEAR(A00C0MPI).4).2) 
ELSE 

B  23.  50  SAY  "EPE: 

ENOIF 

CASE  0T0C(A00TRN2}  <>  (*  /  /  *) 

IF  DT0C(A0DC0NP2)  <>("//  ") 

•  23.  SO  SAY  *FLT:* 

«  23.  60  SAY  STR(0AY(A0DC0NP2).3)i 

•  "  *  ♦  LEFT(CN0NTH(A00C0NP2).3)  >; 

•  *  *  RIGHT(STR(YEAR(A00C0MP2).4).2) 
ELSE 

•  23.  SO  SAY  "FLT: 

ENOIF 

ENOCASE 

ENOCASE 

SET  COLOR  TO  nVB 
IF  OTOC(AOOTRNl)  -(*//*) 

JINO.  DT0C(A00TRN2)  •("//“) 
SET  COLOR  TO  N/M 
f  23.  62  SAY  'N/A" 

SET  COLOR  TO  Ht/B 

ELSE 

ENOIF 

CLEAR  GETS 

NAIT  ‘PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 


*POSITION  FIELDS  ON  THE  SCREEN* 

•  I.  0  SAY  "COMMENTS:  " 

t  2.  5  GET  COMMENTS 

7  CONNENTI 

•  6.  0  SAY  "FLIGHT  EXAMINER; 

ORGANIZATION" 

t  7.  0  GET  RANKI 

•  8.  0  GET  EXAMINER 

•  8.  35  GET  ORGANI 

•  9.  0  SAY  "REVIEHING  OFFICER" 

•  10.  0  GET  RANK2 

•  II.  0  GET  REVIEMER 

•  II.  35  GET  0RGAN2 

9  12.  0  SAY  "APPROVING  OFFICER" 

•  13.  0  GET  RANK3 

9  14.  0  GET  APPROVER 

•  IS.  35  GET  0RGAN3 

CLEAR  GETS 


HAIT  "PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 

•  1.2  SAY  "IV.  Examiner's  Remarks:" 
7 

7  EXAMREM 

7 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE* 

CLEAR 
SELECT  3 

"CHECK  FOR  DISCREPANCIES  IF*  *— 

FOUND  DISPLAY  ON  SCREEN—* 


STORE  0  TO  MNUM 
GOTO  TOP 

LOCATE  FOR  CONTNUM  -  MCONTNUM 
DO  WHILE  FOUNOO 
MNUM  -  MNUM  *  1 
TEST  -  1 
CONTINUE 
ENODO 
SELECT  2 

STORE  0  TO  MNUM2 
GOTO  TOP 

LOCATE  FOR  CONTNUM  -  MCONTNUM 
DO  WHILE  FOUNOO 
MNUM2  -  MNUM2  *  I 
TEST  -  I 
CONTINUE 
ENODO 
DO  CASE 
CASE  TEST  -  0 

7  *  B.  DISCREPANCIES.  NONE." 

7 

7 

HAIT 


CASE  TEST  -  1 
SELECT  3 
MCOUNT  -  96 

LOCATE  FOR  CONTNUM  -  MCONTNUM 


7 

7 


B.  Discrepancies." 


IF  MNUM  -  1 


7  "  1.  EPE.  AREA' 

**LTRIM(sfR(AREA)4-TRlM(sUBAREA} ) 
"JR1M(AREANAME)+"  "4^TR1  M(GRADE) 


7  DISCREP 
ELSE 

IF  MNUM  >  1 
GOTO  TOP 

LOCATE  FOR  CONTNUM  -  MCONTNUM 
7  "  1.  EPE." 

DO  WHILE  FOUNOj) 

MCOUNT  -  MCOUNT  I 
7  "  ("♦  CHR(MCOONT)+")  "."Area: 

".LTR1N(STR(AREAHRTRIN(SUBAREA})*"." 
TRIN(AREANANE)-^"  ''<»TRIN(GRADEh".  " 

7  DISCREP 
CONTINUE 
ENDOO 
ELSE 

7  "  1.  EPE.  NONE." 

ENOIF 

ENOIF 
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4.  + 


? 

7 

WAIT 

SELECT  2 
NCOUNT  -  96 
CLEAR 

LOCATE  FOR  CORTRUM  -  RCORTRUM 
IF  RRUR2  -  1 

7  ■  2.  Flight.  AREA;  _ 

■♦LTRIM(STR(AREAi+TRIK(SUBAREA) )♦■. i 
•,TRIM(AREARAME)+"  ■♦TRIM(6RA0E)*; 

m  m 

7*  OISCREP 
ELSE 

IF  NRUN2  >  1 
GOTO  TOP 

LOCATE  FOR  CORTRUM  -  HCORTRUH 

7  •  2.  Flight.' 

7 

DO  WHILE  FOUROO 
MCOORT  -  MCOURT  +  1  ^ 

7  •  (■♦  CHR(MCOURT)+")  ■.'Are*; 

•,LTRIM(STR(AR£A)*RTRIM(SUBAREA) ; 
TRI  M{AREARAME)*‘  •♦TRIM(6RADE)+'. 

7  OISCREP 
CORTIRUE 
EROOO 
ELSE 

7  •  2. 

EROIF 
EROIF 
7 
7 

WAIT 
EROCASE 
SELECT  1 
CLEAR 

•  1.5  SAY  'C.  Reco ■■ended; 

Additional  Training.” 

7 

7  SEC456 
7 

WAIT  "PRESS  ARY  KEY  TO  CORTIRUE” 
•REIRITIALIZE  CHOICE  TO  ZERO* 


Flight.  RORE." 


CHOICE  -  0 

•  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RETURR  TO  HAIR  MERU - * 


RETURR 
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*AF  FORM  847  PRINT  PROCEDURE* 


CLEAR 

SET  TALK  OFF 

*OPEN  THE  APPROPRIATE  DATABASE* 

*— AMO  INDEX—* 

USE  F847  INDEX  F847 

*INITIALIZE  CHOICE  EQUAL  TO  ZERO* 

CHOICE  -  0  . 

CLEAR 

*BEGIN  LOOP  FOR  USER'S  CHOICE* 

DO  WHILE  CHOICE  <>  2 

CLEAR 

TEXT 

1.  VIEW  A  PARTICULAR  FORM  847 

2.  VIEW  SUMMARY  OF  OPEN  FORMS 
ENOTEXT 

*ENTER  CHOICE  AT  SCREEN  PROMPT* 

•  10.  10  SAY  "ENTER  CHOICE"; 

GET  CHOICE; 

PICTURE  "9"  RANGE  1,2 
READ 

*BEG1N  EXECUTION  OF  USER'S  CHOICE* 

00  CASE 

*IF  USER  REQUEST  TO  VIEW  A* 

*— PARTICULAR  FORM—* 

CASE  CHOICE  -  1 
GOTO  TOP 
CLEAR 

*L1ST  TO  SCREEN  ALL  CURRENT  FORMS* 

DISPLAY  ALL  UNIT.NUMBER.  PUB.  TITLE; 
OFF 

WAIT  "  PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 

*ENTER  FORM  TO  VIEW  AT  SCREEN* 

0  10. IS  SAY  "ENTER  FORM  847  CONTROL; 
NUMBER" 

7 

ACCEPT  "CONTROL  NUMBER:  "; 

TO  MNUMBER 
CLEAR 
GOTO  TOP 

*  - FIND  THE  REQUESTED  FORM - * 

FIND  AMNUMBER 

*P0SIT10N  FIELDS  ON  THE  SCREEN  IN* 
*— FORM  FORMAT—* 


0  1,  0  SAY  "STATUS" 

0  1.  18  SAY  "RECOMMENDATION  FOR; 

CHANGE  OF  PUBLICATION" 

0  2.  0  GET  Fa47->STATUS; 

PICTURE  "0!" 

0  3,  34  SAY  "DATE" 

0  3.  39  GET  F847->0ATE 

0  3.  50  SAY  "UNIT/NUMBER" 

0  3.  62  GET  F847->UNIT; 

PICTURE  "0J" 

0  3,  70  SAY 

0  3.  71  GET  F847->NUNBER 

0  5,  0  SAY  "PUBLICATION  NUMBER; 

BASIC  DATE  REVISION/CHANGE; 
DATE" 

0  6.  1  GET  F847->PUB; 

PICTURE  "01" 

0  6.  24  GET  F847->BAS0ATE 

0  6.  45  GET  F847->REV0ATE 
0  8.  0  SAY  "PAGE  NUMBER; 

MAJOR  PARAGRAPH  TITLE" 

0  9.  1  GET  F847->PAGE 

0  9.  17  GET  F847->TITLE; 

PICTURE  "01" 

0  11,  0  SAY  "SUB- PARAGRAPH  TITLE; 

ITEM  NUMBER" 

0  12.  1  GET  F847->SUBPAR; 

PICTURE  "01" 

0  12.  55  GET  F847->1TEMNUM: 
PICTURE  "01" 

0  14.  1  £ET  F847->CHANGE; 

PICTURE  "01" 

0  14.  3  SAY  "CHANGE" 

0  14.  12  GET  F847->DELETE; 

PICTURE  "01" 

0  14.  14  SAY  "DELETE  SO  MUCH; 
OF" 

0  14.  39  GET  F847->PAR; 

PICTURE  "01" 

0  14.  41  SAY  "PARAGRAPH" 

0  14,  53  GET  P847->1TEM; 

PICTURE  "01" 

0  14,  55  SAY  "ITEM" 

0  14,  62  GET  F847->FIG; 

PICTURE  "01" 

0  14.  64  SAY  "FIGURE" 

0  16.  0  SAY  "AS  READS" 

0  16,11  SAY  "Press  *PaDn  To  View  " 

GET  CURTEXTl 

CLEAR  GETS 

7 

7 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 

0  1.  0  SAY  "TO  READ" 

02,  11  GET  F847->PR0PTEXT 

0  9.  0  SAY  "AFTER  PRESENT" 

0  11.  20  GET  F847->SENT; 

PICTURE  "01" 

0  11.  22  SAY  "SENTENCE" 

0  11.  37  GET  F847->1TEN3: 

PICTURE  "01" 

0  II.  39  SAY  "ITEM" 

0  13.  0  SAY  "AS  READS" 

0  15.  11  GET  F847->CURTEXT2 
0  22.  0  SAY  "ADO  NEW" 

0  22,  13  GET  F847->PAR2; 
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8  22.  14 

SAY 

■  ■ 

8  22.  15 

SAY 

"PARAGRAPH" 

8  22.  28 

GET 

F847->SENT2 

PICTURE  "81" 

8  22.  30 

SAY 

•SENTENCE" 

8  22.  42 

GET 

F847->ITEM4 

PICTURE 

*81* 

8  22.  44 

SAY 

•ITEM" 

8  22.  53 

GET 

F847->F1G2: 

PICTURE  ' 

'81* 

8  22.  55 

SAY 

"FIGURE" 

CLEAR  GETS 

WAIT  "  PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 


1. 

0 

SAY 

•TO  READ" 

2. 

11 

GET 

F847->CURTEXT3 

9. 

0 

SAY 

"REASON" 

11. 

11 

GET 

F847->REAS0N 

22. 

0 

SAY 

"ORGANIZATION" 

22. 

14 

GET 

F847->0RGAN: 

PICTURE  "81" 

8 

24. 

0 

SAY 

"NAME/GRAOE  OF 

ORIGINATOR" 

8 

24. 

27 

GET 

F847->NANE; 

PICTURE 

•81" 

CLEAR  GETS 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 

i  2.  21  SAY  "(REVERSE  SIDE  OF  AF; 
FORM  847)* 

«  4.  24  SAY  "1ST  INOORSEHENT* 

i  5,  0  SAY  "TO* 

•  5.  4  GET  F847->T01; 

PICTURE  "»l* 

8  5.  32  SAY  "FROM* 

»  $.  39  GET  F847->FR0Hli 

PICTURE  *•!* 

«  7.  4  GET  F847->C0NCURli 

PICTURE  "•!" 

«  7.  6  SAY  "CONCUR* 

•  7.  39  GET  F847->N0C0NCUR1; 

PICTURE  "81" 

8  7,  41  SAY  "DO  NOT  CONCUR* 

8  9.  0  SAY  "REMARKS" 

8  9,  11  GET  F847->REMARKS1 

8  13.  0  SAY  "DATE" 

8  13.  6  GET  F847->0ATE2 

8  13.  17  SAY  "NAME/GRAOE/TITLE* 

8  13.  35  GET  F847->NAME2; 

PICTURE  *8J* 

CLEAR  GETS 
7 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 

8  4.  24  SAY  "2N0  INDORSEMENT" 

8  5.  1  SAY  "TO" 

8  5.  5  GET  F847->T02; 

PICTURE  *81" 

8  5.  33  SAY  "FROM* 

8  5,  39  GET  F847->FR0M2: 

PICTURE  *81" 

8  7.  5  GET  F847->C0NCUR2i 

PICTURE  "81" 

8  7.  7  SAY  "CONCUR" 

8  7.  39  GET  F847->N0C0NCUR2: 

PICTURE  *81" 

8  7.  41  SAY  "DO  NOT  CONCUR* 


8  9.  0  SAY  "REMARKS" 

8  9.  11  GET  F847->REMARKS2 
8  13.  0  SAY  "DATE* 

8  13.  6  GET  F847->0ATE3 

8  13.  17  SAY  "NAME/GRAOE/TITLE* 

8  13.  35  GET  F847->NAME3; 

PICTURE  *81" 

CLEAR  GETS 

7 

7 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 

8  4.  24  SAY  "3RO  INDORSEMENT" 

8  5.  1  SAY  "TO* 

8  5.  5  GET  F847->T03: 

PICTURE  *81* 

8  5.  33  SAY  "FROM* 

8  5.  39  GET  F847->FR0M3; 

PICTURE  *81* 

8  7.  5  GET  F847->C0NCUR3; 

PICTURE  *81* 

8  7.  7  SAY  "CONCUR* 

8  7.  39  GET  F847->N0C0NCUR3; 

PICTURE  *81* 

8  7.  41  SAY  "DO  NOT  CONCUR" 

8  9.  0  SAY  "REMARKS* 

8  9.  11  GET  F847->REMARKS3 

8  13.  1  SAY  "DATE" 

8  13.  7  GET  F847->0ATE4 

8  13.  19  SAY  "NAME/GRADE/TITLE* 

8  13.  37  GET  F847.>NAME4: 

PICTURE  "81* 

CLEAR  GETS 
7 
7 
7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 


8  4.  24 

SAY 

■4TH  INDORSEMENT" 

8  5.  2 

SAY 

•TO* 

8  5.  6 

SET 

F847->T04; 

PICTURE 

•81" 

8  5.  34 

SAY 

•FROM" 

8  5.  40 

GET 

F847->FR0M4j 

PICTURE 

•81" 

8  7.  6 

GET 

F847->C0NCUR4; 

PICTURE 

•81" 

8  7.  8 

SAY 

•CONCUR" 

8  7.  40 

GET 

F847->N0C0NCUR4; 

PICTURE 

•81" 

8  7.  42 

SAY 

"DO  NOT  CONCUR* 

8  9.  2 

SAY 

"REMARKS" 

8  9.  11 

GET 

F847->REMARKS4 

8  13.  1 

SAY 

•DATE* 

8  13.  7 

GET 

F847<>0ATE5 

8  13.  19 

SAY 

"NAME/GRADE/TITLE 

8  13.  37 

GET 

F847->NAM£5i 

PICTURE 

•81" 

CLEAR  GETS 

7 

9 

• 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE 

CHOICE  - 

0 

CASE  CHOICE  - 

2 

•LIST  TO 

SCREEN  CONTROL  NUMBER,' 
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*— TITLE,  AND  DATE  OF  ALL  OPEA— * 
* - FORMS - * 

CLEAR 

DISPLAY  NUMBER,  TITLE,  DATE  FOR; 
TRIM(STATUS)  -  "OPEN* 

MAIT  'PRESS  ANY  KEY  TO  CONTINUE* 

*RESET  CHOICE  EQUAL  TO  ZERO* 

ENOCASE 

CHOICE  -  0 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 


RETURN 


*FC1F  VIEW  PROCEDURE* 

********************* 

^INITIALIZE  MEMORY  VARIABLES* 

CLEAR 

SET  EXACT  ON 
SET  TALK  OFF 
SET  HEADING  OFF 

PUBLIC  MPUBNUM.  MCOUNT,  MTYPE2.: 

NNUN.NNUM2 

SELECT  1 

STORE  *  *  TO  MPUBNUM 

STORE  ■  ■  TO  MTYPE 

STORE  0  TO  MCOUNT 

STORE  *  *  TO  MRESPON 

STORE  0  TO  MNUM 

STORE  0  TO  NNUN2 

STORE  ■  ■  TO  MTYPE2 

STORE  "  *  TO  MVOLUMN 

CHOICE  -  0 

CLEAR 

•  - SCREEN  MENU - * 

TEXT 

1.  VIEW  PUBLICATIONS 

2.  VIEW  READ  FILE 
ENOTEXT 

9  23.  25  SAY  'ENTER  CHOICE*; 

GET  CHOICE; 

PICTURE  *9*  RANGE  1,2 

READ 

00  CASE 

CASE  CHOICE  -  I 
SELECT  1 

USE  FCIF  INDEX  FCIF 

GOTO  TOP 

CLEAR 

9  10,5  SAY  'REVIEW  A  PARTICULAR; 
REGULATION  OR  VOLUME  INDEX?  * 

9  12,5  SAY  'ENTER  (R)  FOR; 
REGULATION  OR  (Vol)  I.e.  IIA  FOR; 
VOLUME  INDEX:  *  GET  MRESPON; 

PICTURE  *il' 

READ 

CLEAR 

7 

IF  MRESPON  -  'R* 

USE  FCIF  INDEX  FCIF 

•  10,5  SAY  'ENTER  REGULATION  TO; 

VIEW  I.e.  AFR  60-1,  TACR  60-2:  *; 

GET  NTYPE2; 

PICTURE  '#!' 

9  10.  64  SAY  *  *  GET  MNUM; 

PICTURE  *#####* 

9  10.  71  SAY  *-*  GET  MNUM2; 

PICTURE  *«#«#«' 

READ 
CLEAR 
SELECT  1 

•  1,  1  SAY  '  STATUS; 

PUBLICATION  DATE' 

? 


LOCATE  FOR  TYPE  -  NTYPE2  .AND.  NUM; 
-  MNUM  JIND.  NUN2  -  NNUN2  JINO. ; 
MVOLUMN  -  VOLUMN 
MTYPE2  -  TYPE 
MNUM  -  STR(NUH) 

NNUN2  -  STR(NUN2) 

MVOLUMN  -  VOLUMN 

MPUBNUM  -  TRIM{'4MTYPE2')  +  '  *  ♦; 
LTRIMI'AMNUM')  ♦  *-'  ♦; 
LTRIM(*AMMUM2')  ♦**■••; 
TRIM^AMVOLUMN') 


STATUS,  *; 

■  • 
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DO  WHILE  FOUNDO 
? 

7  ' 

'.'&MPUBNUM',  ■ 

STR(DAY(DATE).3)  +  '  *  +; 
LEFT(CM0MTH(DATE),3)  +  *  '  ♦; 

RIGHT{STR(YEAR(0ATE}.4).2} 

SELECT  2 
USE  FCIF2 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM' 

DO  WHILE  FOUNDO 
7  '  *,  STATUS,  '; 

',  SUP,  *  *,  STR(DAY(DATE),3)  ♦; 

'  '  +  LEFT(CM0NTH(DATE),3)  +  ^  *  ♦; 
RIGHT(STR(YEAR(DATE).4).2) 

CONTINUE 
ENODO 
SELECT  3 
USE  FCIF3 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM' 

DO  WHILE  FOUNDO 
7  *  *,  STATUS,  ■; 

',  CHANGE,  *  *,  STR(DAY(DATE),3)  ♦; 

'  '  ♦  LEFT(CM0NTH(DATE),3)  ♦  ^ 
RIGHT(STR( YEAR(DATE) .4) .2] 

CONTINUE 
ENDDO 
SELECT  4 
USE  FCIF4 
LOCATE  FOR  PUBNUM 
DO  WHILE  FOUNDO 
7  ' 

'  IMC  * 

+  ’*  *  ♦  LEFT(CM0NfH(DATE),3)  +  '  *; 

*  RIGHT(STR(YEAR(DATE).4).2) 

CONTINUE 
ENDDO 
SELECT  1 
7 
7 

7  '  QUANTITY  ORDERED; 

DISTRIBUTION' 

7  *  '.QUANT.'; 

*,OIST 


'AMPUBNUM' 

',  STATUS,  *; 

'  STR(DAY(oATE).3); 


7 

7 

WAIT  'PRESS  ANY  KEY  TO  CONTINUE' 

ELSE 
DO  CASE 

CASE  LEFT('ANRESP0N'.2}  -  *11*;  .OR. 
LEFT('AMRESP0N',2)  •  *VI' 

USE  FCIF  INDEX  FCIF 
ERASE  TEMP.DBF 

SORT  TO  TEMP  ON  TYPE/A,  NUM/A,; 
NUN2/A.  VOLUMN/A 
USE  TEMP 
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CLEAR 
GOTO  TOP 

i  1,  1  SAY  "STATUS  PU8LICATI0A; 

TITLE  DATE" 

NCOUNT  -  MCOUNT  +  1 

STORE  "  "  TO  MTYPE 

STORE  "  "  TO  MNUM 

STORE  "  "  TO  HNUH2 

STORE  "  "  TO  NVOLUNN 

LOCATE  FOR  VOL  -  TRIH(‘ANRESPOM‘) 

DO  WHILE  FOUNDO 

MTYPE  ■  TYPE 

MNUM  -  STR(NUM} 

MNUM2  -  STR(NUM2) 

MVOLUNN  -  VOLUMN 

IF  MCOUNT  <  18 

MCOUNT  -  MCOUNT  *  2 

MPUBNUM  •  TRIM('iMTYPE')  +  "  "  +; 

LTRIMI'AMNUM*)  ♦  "-"  +; 

LTR1M('&MNUM2')  +  "  "  +; 

TRIM('AMVOLUMN') 

7 

9  MCOUNT  .  3  SAY  STATUS 
9  NCOUNT  .  9  SAY  MPUBNUM 
9  MCOUNT  .  25  SAY  TITLE 
9  NCOUNT  .  62  SAY  STR(0AY(0ATE),3); 

♦  "  "  +  LEFT(CM0NTH(0ATE),3)  +  " 

*  RIGHT(STR(YEAR(0ATE).4].2} 

SELECT  2 

USE  FCIF2 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM* 

DO  WHILE  FOUNDO 

MCOUNT  -  MCOUNT  *  I 

?  "  ",  STATUS.  •  ",  SUP,  "; 

",  STR(0AY(0ATE).3)  +  "  "  +j 
LEFT(CM0NTH(DATE),3)  ♦  "  "  +; 
RIGHT(STR( YEAR(OATE) ,4) .2) 

CONTINUE 
ENOOO 
SELECT  3 
USE  FC1F3 

LOCATE  FOR  PUBNUM  -  '&NPUBNUN' 

00  WHILE  FOUNDO 

NCOUNT  -  NCOUNT  *  1 

7  "  ",  STATUS,  •  ",  CHANGE.  "; 

",  STR(0AY{DATE).3)  ♦  "  "  +; 
LEFT(CM0NTH(0ATE),3)  ♦  "  "  +  ; 
R1GHT(STR(YEAR(0ATE) ,4) ,2) 

CONTINUE 
ENDDO 
SELECT  4 
USE  FCIF4 

LOCATE  FOR  PUBNUM  -  '&NPUBNUN' 

DO  WHILE  FOUNDO 

MCDUNT  -  NCOUNT  -i-  I 

7  "  ",  STATUS,  "  ",  IMC,  "; 

",  STR(DAY(DATE),3)  +  "  "  ♦; 
LEFT(CM0NTH(DATE),3)  +  "  "  +; 
RIGHT(STR(YEAR(DATE).4).2) 

CONTINUE 

ENOOO 

SELECT  1 

IF  NCOUNT  <  18 

CONTINUE 

ENDDO 

ELSE 

NCOUNT  -  1 
7 


7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 

§  1.  1  SAY  "STATUS  PUBLICATION; 
TITLE  DATE" 

7 

CONTINUE 

ENDDO 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 

ENDIF 

ENOIF 

7 

7 


CASE  LEFT('&NRESP0N'.2)  - 
M)  - 


"IV"; 

"V" 


.OR.  LEFT('&NRESPON‘. 

SELECT  1 
USE  TECHORO  INDEX  TECHORO 
REINDEX 
CLEAR 
GOTO  TOP 

«  1.  1  SAY  "STATUS  PUBLICATION; 
TITLE  DATE" 

NCOUNT  -  MCOUNT  *  1 
LOCATE  FOR  VOL  -  TRIN('&MRESPON') 
DO  WHILE  FOUNDO 
STORE  "  "  TO  MPUBNUM 

STORE  "  "  TO  MPUB2 

STORE  "  "  TO  MPUB3 

STORE  "  "  TO  MPUB4 

STORE  "  "  TO  MPUB5 

MPUBNUM  -  PUBNUM 
MPUB2  -  PUB2 
NPUB3  -  PUB3 
NPUB4  >  PUB4 
NPUB5  -  PUBS 
IF  NCOUNT  <  18 
NCOUNT  «  NCOUNT  +  2 
MPUBNUM  -  TRIMC&MPUBNUN') 
TR1N('ANPUB2')  *  TRl N('ANPUB3')  *; 

TR1N('ANPUB4'}  *  TRIM('ANPU65') 

7 

9  NCOUNT  ,  3  SAY  STATUS 
9  NCOUNT  ,  9  SAY  MPUBNUM 
9  NCOUNT  .  25  SAY  TITLE 
9  NCOUNT 

♦  "  "  + 

RlGHT(STR(YEAR(OAtE), 

SELECT  2 
USE  FCIF2 

LOCATE  FOR  PUBNUM  -  '&NPUBNUM* 

DO  WHILE  FOUNDO 
MCDUNT  -  MCDUNT  1 
7  "  ",  STATUS,  "  ",  SUP,  "; 

STR(DAY(DATE),3)  ♦  "  "  +; 
LEFT(CM0NTH(DATE),3)  ♦  "  " 
RIGHT(STR(YEAR(DATE}.4).2) 

CONTINUE 
ENOOO 
SELECT  3 
USE  FCIF3 

LOCATE  FOR  PUBNUM  -  '&MPUBNUM' 

DO  WHILE  FOUNDO 
MCOUNT  -  NCOUNT  1 
7  "  ",  STATUS,  "  ",  CHANGE, 


,  9AT  I  1 ILt 
,  62  SAY  STR(0AY(DATE),3); 
LEFT(CM0NTH(DATE).3)  ♦  " 
r(STR(YEAR(0ATE).4).2) 


STR(DAY(0ATE),3}  ♦  "  "  +; 
LEFT(CM0MTH(0ATE),3)  +  •  •  +; 
R1GHT(STR(YEAR(DATE),4).2) 
CONTINUE 
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ENODO 
SELECT  4 
USE  FC1F4 

LOCATE  FOR  PUBNUN  -  '&MPUBNUM' 

DO  WHILE  FOUNOO 

HCOUNT  -  MCOUNT  +  1 

?  •  ■,  STATUS,  ■  IMC,  ■;  *. 

STR(DAY(DATE),3)  +  ■  ■ 

LEFT{CM0MTH(0ATE).3)  ♦  ■  ■ 

R1GHT(STR(YEAR(0ATE) ,4) .2) 

CONTINUE 

ENDOO 

SELECT  1 

IF  NCOUNT  <  18 

CONTINUE 

ENDOO 

ELSE 

MCOUNT  -  1 
CONTINUE 
? 

7 

WAIT  'PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 

«  I.  1  SAY  'STATUS  PUBLICATION; 
TITLE  DATE* 

7 

ENDOO 

ENOIF 

ENOIF 

7 

7 

ENOCASE 

WAIT  'PRESS  ANY  KEY  TO  CONTINUE' 

CLOSE  DATABASES 

CLOSE  ALL 

CHOICE  -  0 

RETURN 

CASE  CHOICE  -  2 
USE  FCIFS  INDEX  FCIF5 
SET  HEADING  OFF 
CLEAR 

NCOUNT  -  I 

LOCATE  FOR  .NOT.  EOF(} 

7  'CONTI  SUBJECT  ; 

ORIGINATOR* 

7* 


DO  WHILE  FOUNOO 
IF  MCOUNT  <-  2 
DISPLAY  CONTNUM,  SUBJECT. ; 
ORIGINATOR  OFF 

IF  DTOC(ENTERED)  -(*//*) 

7  'ENTERED:* 

ELSE 

7  'ENTERED:  *.STR(DAY(ENTEREO}.; 

3)  ♦  '  *  +  LEFT(CM0NTH(ENTERE0),3); 

♦  *  *  +  RI6HT(STR(YEAR(ENTERE0),4)i 

.2) 

ENOIF 

IF  0T0C(EXPIRE5)  ■  (*  /  /  ') 

7  'EXPIRES:' 

ELSE 

7  'EXPIRES:  ',STR(OAY(EXPIRES),; 

3)  ♦  *  *  ♦  LEFT(CMONTH(EXPIRES),3); 

♦  •  '  +  RIGHT(STR(YEAR(EXPIRES),4); 

♦  2) 

ENOIF 


IF  OTOC(REVIEW)  -  ('  /  /  ') 

7  'REVIEW:* 

ELSE 

7  'REVIEW  :  *.STR(0AY(REVIEW).3) ; 

♦  *  '  ♦  LEFT(CMONTH(REVIEW),3); 

+  *  *  +  RIGHT(STR(YEAR(REVIEW).4),2) 
ENOIF 

IF  DTOC(RESCINO)  -('//') 

7  'RESCINDED:* 

ELSE 

7  'RESCINDED:  '.STR(OAY(RESCINO),i 
3)  +  '  '  ♦  LEFT(CM0NTH(RESCIN0j,3); 

♦  *  '  ♦  RIGHT(STR(YEAR{RESCIN0).4)i 
*2) 

ENDIF 

7  'DISPOSITION:', DISPO 

7* 


NCOUNT  -  MCOUNT  *  I 

CONTINUE 

ELSE 

WAIT  'PRESS  ANY  KEY  TO  CONTINUE* 
CLEAR 

NCOUNT  -  I 

7  'CONTI  SUBJECT; 

ORIGINATOR* 

7* _ _ 

7 - 

DISPLAY  CONTNUM.  SUBJECT.; 

ORIGINATOR  OFF 

IF  OTOC(ENTERED)  -(•//“) 

7  'ENTERED:' 

ELSE 

7  'ENTERED:  ',STR(OAY(ENTEREO),; 

3)  ♦  *  *  ♦  LEFT(CMONTH(ENTERED).3); 

*  •  •  *  RIGHT(STR(YEAR(ENTERED),4); 
*2) 

ENDIF 

IF  OTOC(EXPIRES)  -  (*  /  /  ') 

7  'EXPIRES:' 

ELSE 

7  'EXPIRES:  ',STR(DAY(EXPIRES),; 

3)  +  *  '  +  LEFT(CM0NTH(EXPIRES).3); 

♦  *  *  ♦  RIGHT(STR(YEAR(EXPIRES),4); 

» 2 ) 

ENDIF 

IF  DTOC(REVIEH)  -(*//') 

7  'REVIEW:' 

ELSE 

7  'REVIEW  :  *.STR(DAY(REVIEW).3); 

♦  '  *  ♦  LEFT(CM0NTM(REVIEW),3); 

♦  •  •  *  RIGHT(STR(YEAR(REVIEN).4),2} 

ENOIF 

IF  DTOC(RESCIMD)  ■("//') 

7  'RESCINDED:* 

ELSE 

7  'RESCINDED:  '.STR(DAY(RESCINO),; 
3)  ♦  *  '  ♦  LEFT(CM0HTH(RESCIND),3); 

♦  '  ■  ♦  RIGHT(STR(YEAR(RESCIN0),4); 

.2) 

ENDIF 

7  *OISPOSlTION:',OISPO 

7* _ _ 

■  - - -  - - 

NCOUNT  -  MCOUNT  *  I 
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ENOIF 

ENDOO 

WAIT  “PRESS  AMY  KEY  TO  COMTINUE“ 

CLOSE  ALL 

CHOICE  -  0 

SET  EXACT  OFF 

RETURN 


*ACT10N  ITEM  VIEW  PROCEDURE* 


7  DISCUSSION 
CLEAR  GETS 
7 
7 

WAIT  “PRESS  ANY  KEY  TO  CONTINUE“ 

*  - RESET  CHOICE  EQUAL  TO  ZERO——* 

CHOICE  -  0  * 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIM  MENU - * 

RETURN 


*PROCEOURE  TO  VIEW  ACTION  ITEMS* 


SET  TALK  OFF 
STORE  “ 


“  TO  MCONTNUM 


*OISCREPANCY  TRENDS  VIEW  PROCEDURE* 


*OPEN  THE  APPROPRIATE  DATABASE  AND* 
*— INDEX— * 


SET  TALK  OFF 
SET  HEADING  OFF 


USE  ACTION  INDEX  ACTION 

GOTO  TOP 

CLEAR 

*LIST  TO  SCREEN  ACTION  ITEMS* 


• - REMOVE  OLD  INDEX- 

ERASE  TREND.NDX 

USE 

CLEAR 


7  “  STATUS  CONTROL  #  SUBJECT; 

D^iVp^LM^ALL  status/  “,  CONTNUM,; 
TITLE.  ORIGIN  OFF 
7 


*ENTER  REQUESTED  ACTION  ITEM* 

*— NUMBER  AT  SCREEN  PROMPT—* 

»  24. S  SAY  “ENTER  CONTROL  NUMBER  OF; 
ITEM  TO  REVIEW:  “  GET  MCONTNUM; 
PICTURE  “il“ 

READ 

CLEAR 

*CHECK  FOR  EMPTY  MEMORY  VARIABLE* 


*IN1T1ALIZE  MEMORY  VARIABLES* 


STORE  CTOO(“  /  / 
STORE  CTOO(“  /  / 
“  TO  MTYPE 


STORE 
STORE  “ 

STORE  0  TO  MCOUNT 
“TO  MPOS 
TO  N 


STORE 
STORE  0 
CLEAR 
7 
7 
7 
7 
7 


“)  TO  MDATE 
“)  TO  MDATE2 

TO  MACFT 


IF  “  “  •  'AMCONTNUM* 

CHOICE  -  0 
CLOSE  DATABASES 
RETURN 

•LOCATE  THE  REQUESTED  ACTION  ITEM* 
•—NUMBER—* 

LOCATE  FOR  CONTNUM  ■  'AMCONTNUM* 
CLEAR 

•POSITION  FIELDS  ON  THE  SCREEN* 


SAY  “STATUS 

OPENED; 

CONTROL“ 

SAY  “NUMBER“ 

GET  ACTION->STATUS 
GET  ACTION->TlTLE 
GET  ACTION->OPENEO 
GET  ACTION->CLOSEO 
4.  68  GET  ACTION->CONTNUM 
6.  1  SAY  “ORIGINATOR:  “ 

6.  IS  GET  ACTION->ORIGIN 
8.  0  SAY  “DISCUSSION' 


•  2. 
TITLE 
CLOSED 

•  3.  68 

•  4. 

»  4. 

•  4. 
i  4. 

8 

• 

B 


1 

9 

SO 
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•ENTER  MEMORY  VARIABLES  AT  SCREEM* 


»  14.  10  SAY  “ENTER  TYPE  AIRCRAFT:; 
•  GET  MACFT; 

PICTURE  “»l" 

B  15.  10  SAY  “ENTER  DATE  OF; 
BEGINNING  OF  DESIRED  PERIOD:; 


“  GET  MDATE 

B  16.  10  SAY  “ENTER  DATE  OF  END  OF; 
DESIRED  PERIOD:  i 

GET  M0ATE2 

B  17.10  SAY  “ENTER  CREW  POSITiON; 
(P)  OR  (H): 

GET  MPOS; 

PICTURE  “Bl“ 

B  18.10  SAY  “ENTER  TYPE  TREND  TO; 
VIEW  (F)  FOR  FLT  OR  (E)  FOR  EPE:  “; 
GET  MTYPE; 

PICTURE  “Bl“ 

READ 


•OPEN  FLIGHT  DISCREPANCIES  DATABASE* 
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USE  FLTOIS  INDEX  FLTDIS 

^SEARCH  FOR  EMPTY  RECORDS* 

*— AND  DELETE—* 

LOCATE  FOR  AREA  -  0 

DO  WHILE  FOUNOO 

DELETE 

CONTINUE 

ENOOO 

PACK 

*OPEN  EPE  DISCREPANCY  DATABASE* 

USE  EPEOIS  INDEX  EPEOIS 

*SEARCH  FOR  EMPTY  RECORDS* 

*— AMO  DELETE—* 

LOCATE  FOR  AREA  -  0 

DO  WHILE  FOUNOO 

DELETE 

CONTINUE 

ENODO 

PACK 

CLOSE  DATABASES 

*BEGIN  LOOP  TO  VIEW  FLIGHT* 

*— DISCREPANCIES— * 

*BY  AIRCRAFT.  REQUESTED  DATES.* 

*— AND  CREW  POSITION—* 

DO  CASE 

CASE  'BMTYPE'  •  ‘F* 

CLEAR 

USE  FLTOIS 

SET  FILTER  TO  ACFT  •  TRIM(MACFT}j 

J<HO.  COMPDATE  >-  MOATE  .AND.; 

COMPOATE  <-  M0ATE2 

INDEX  ON  AREA  *  VAL(SUBAREA):  TO 

TREND 

IF  MPOS  -  "P" 

7  *  CONTROL#  AREA#  AREA; 

NAME  EXAMINER* 

DISPLAY  ALL  CONTNUM.  STR(AREA)*; 
SUBAREA**  *.  AREANAME.  EXAMINER; 
FOR  TRIM(POSITION)  -  *P*  .OR,  TRIM; 
(POSITION)  •  *CP*  .OR.  TRIM; 
(POSITION)  -  *IP*  OFF 
7 
7 

WAIT  *PRESS  ANY  KEY  TO  CONTINUE* 
ELSE 

IF  'AMPOS'  ■  *W* 

CLEAR 

7  *  CONTROL#  AREA#  AREA; 

NAME  EXAMINER* 

DISPLAY  ALL  CONTNUM.  STR(AREA)*; 
SUBAREA**  *.  AREANAME.  EXAMINER; 
FOR  POSITION  -  *WSO*  .OR.  POSITION; 
-  *IWSO*  OFF 
7 
7 

WAIT  *PRESS  ANY  KEY  TO  CONTINUE* 
ENOIF 


*B£GIN  LOOP  TO  DISPLAY  EPE* 

*— DISCREPANCIES— * 

*BY  AIRCRAFT.  REQUESTED  DATES.* 

*— AND  CREW  POSITION—* 

CASE  'AMTYPE'  -  *E* 

USE  EPEOIS 

SET  FILTER  TO  ACFT  -  TRIM(MACFT); 
AMD.  COMPDATE  >-  MOATE  .AND.; 
COMPDATE  <-  M0ATE2 
INDEX  ON  AREA  *  VAL(SUBAREA); 

TO  TREND 
GOTO  TOP 

IF  ‘AMPOS’  -  *P* 

CLEAR 

7  *  CONTROL#  AREA#  AREA; 

NAME  EXAMINER* 

OISPUY  ALL  CONTNUM.  STR(AREA)*; 
SUBAREA**  *.  AREANAME.  EXAMINER; 
FOR  POSITION  -  *P*  .OR.  POSITION; 

-  *IP*  OFF 

7 

7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 
ELSE 

IF  'AMPOS*  -  *W* 

CLEAR 

7  *  CONTROL#  AREA#  AREA; 

NAME  EXAMINER* 

DISPLAY  ALL  CONTNUM.  STR(AREA)*; 
SUBAREA**  *.  AREANAME.  EXAMINER; 
FOR  POSITION  -  *WSO*  .OR.  POSITION 
-  •IWSO*  OFF 
7 
7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 

ENOIF 

ENOCASE 

*  - REMOVE  FILTER - * 

SET  FILTER  TO 

*RESET  CHOICE  EQUAL  TO  ZERO* 

CHOICE  «  0 

*  - CLOSE  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 


*SEFE  OBJECTIVITY  VIEW  PROCEDURE* 


SET  TALK  OFF 
SET  HEADING  OFF 
CLEAR 

*INITIALIZE  MEMORY  VARIABLES* 

STORE  CTOOC  /  /  •)  TO  MOATE 

STORE  CTOO("  /  /  ")  TO  M0ATE2 

STORE  •  •  TO  MTYPE 

STORE  ■  "  TO  MACFT 

STORE  0  TO  MCOUNT 

STORE  “  ■  TO  MPOS 

STORE  0  TO  N 

CLEAR 

7 

7 

7 

7 

7 

*ENTER  MEMORY  VARIABLES  AT  SCREEN* 

«  14.  10  SAY  "ENTER  TYPE  AIRCRAFT:; 

■  GET  MACFT; 

PICTURE  "ir 

«  15.  10  SAY  "ENTER  DATE  OF; 
BEGINNING  OF  DESIRED  PERIOD:  "; 

GET  MDATE 

»  16.  10  SAY  "ENTER  DATE  OF  END  OF; 
DESIRED  PERIOD:  "  GET  NDATE2 

«  17.10  SAY  "ENTER  CREW  POSITION; 

(P)  OR  fu):  "  GET  MPOS; 

hCTURE  ^Bl" 

«  18.10  SAY  "ENTER  TYPE  TREND  TO; 
VIEW  (F)  FOR  FLIGHT  OR  (E)  FOR  EPE: ; 
"  GET  MTYPE; 

PICTURE  "il" 

READ 

* - REMOVE  OLD  DATABASE  FILE - * 

ERASE  OBJ.DBF 

*BEGIN  LOOP  FOR  FLIGHT* 

*— EVALUATION  OBJECTIVITY—* 

DO  CASE 

CASE  'iMTYPE'  -  "F" 

CLEAR 

*OPENS  ONLY  THE  FLIGHT  DISCREPANCY* 
*— DATABASE— * 

USE  FLTDIS 

*ALLOHS  PROGRAM  TO  SEE  ONLY* 

*— SPECIFIED  RECORDS—* 

SET  FILTER  TO  ACFT  -  TRIM(MACFT); 
.AND.  COMPOATE  >-  MOATE  .AND.; 
COMPDATE  <-  NDATE2 

IF  EOF() 

CLEAR 


»  10.  10  SAY  "NO  DISCREPANCIES 
ENTERED" 

7 

7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

IF  RECCOUNTO  -  1 
7  "CONTROL#  EXAMINER; 

AREA" 

DISPLAY  CONTNUM.  EXAMINER.; 
STR(AREA)*SUBAREA.  AREANAME  FOR; 
POSITION  •  "P"  .OR.  POSITION  -  "CP 
.OR.  POSITION  -  "IP"  OFF 
7 
7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

*OROERS  RECORDS  ACCORDING  TO*  *— 
EXAMINER.  AREA.  AND  SUBAREA—* 

SORT  TO  OBJ  ON  EXAMINER.  AREA.; 

SUBAREA 

USE  OBJ 

ENOIF 

*ALLOUS  ONLY  RECORDS  OF  PILOTS* 

*— TO  BE  SEEN—* 

IF  MPOS  •  "P" 

*LIST  TO  SCREEN  ALL  RECORDS* 

*— SPECIFIED— * 

7  "CONTROL#  EXAMINER; 

AREA" 

DISPLAY  CONTNUM.  EXAMINER.; 
STR(AREA)*SUBAREA.  AREANAME  FOR; 
POSITION  -  "P"  .OR.  POSITION  -  "CP 
.OR.  POSITION  -  "IP"  OFF 
7 
7 

WAIT  "PRESS  ANY  KEY  TO  CONTINUE" 
ELSE 

*ALLOWS  ONLY  RECORDS  OF  WSO'S  TO* 
*— BE  SEEN—* 

IF  ‘BMPOS’  ■  "W" 

CLEAR 

*LIST  TO  SCREEN  RECORDS  OF* 
SPECIFIED  WSO’S—* 

7  "CONTROL#  EXAMINER; 

AREA" 

DISPLAY  CONTNUM.  EXAMINER.; 
STR(AREA}*SUBAREA.  AREANAME  FOR 
POSITION  -  "WSO"  .OR.  POSITION 
"IWSO"  OFF 
7 
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■  •• 


WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 
ENOIF 

•BEGIN  LOOP  FOR  EPE  FLIGHT*  *— 
EXAMINER  OBJECTIVITY—* 

CASE  'AHTYPE*  -  ‘E* 

CLEAR 

•OPENS  EPE  DISCREPANCY  DATABASE* 
•—ONLY—* 

USE  EPEDIS 

•ALLOWS  ONLY  SPECIFIED  RECORDS* 

•—TO  BE  SEEN—* 

SET  FILTER  TO  ACFT  -  TRIM(MACFT); 
JVND.  COMPDATE  >-  MOATE  .AND.; 
COMPDATE  <-  M0ATE2 

IF  EOF() 

CLEAR 

«  10,  10  SAY  ‘NO  DISCREPANCIES; 
ENTERED* 

7 

7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

IF  RECCOUNTO  -  1 
7  ‘CONTROL#  EXAMINER; 

AREA* 

DISPLAY  CONTNUM.  EXAMINER,; 
STR(AREA)-^SUBAREA,  AREANAME  FOR; 
POSITION  •  ‘P*  .OR.  POSITION  •  ‘CP‘; 
.OR.  POSITION  -  ‘IP‘  OFF 
7 
7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 

CHOICE  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

•ORDERS  RECORDS  ACCORDING  TO* 
•—EXAMINER,  AREA,  AND  SUBAREA—* 

SORT  TO  OBJ  ON  EXAMINER,  AREA,; 

SUBAREA 

USE  OBJ 

ENDIF 

GOTO  TOP 

•ALLOWS  ONLY  PILOT  RECORDS  TO  BE* 
•—SEEN—* 

IF  'AMPOS'  ■  ‘P* 

CLEAR 

•LIST  TO  SCREEN  SPECIFIED  RECORDS* 

7  ‘CONTROL#  EXAMINER; 

AREA* 

DISPLAY  CONTNUM,  EXAMINER,; 
STR(AREA}*SUBAREA,  AREANAME  FOR; 
POSITION  -  ‘P*  .OR.  POSITION  -  ‘CP‘; 
.OR.  POSITION  -  ‘IP*  OFF 


7 

7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 

ELSE 

•ALLOWS  ONLY  WSO  RECORDS  TO  BE  SEEN* 
IF  'AMPOS'  •  ‘W* 

CLEAR 

•LIST  TO  SCREEN  SPECIFIED  RECORDS* 

7  ‘CONTROL#  EXAMINER; 

AREA* 

DISPLAY  CONTNUM,  EXAMINER,; 
STR(AREA)*SUBAREA,  AREANAME  FOR; 
POSITION  -  ‘WSO*  .OR.  POSITION  -; 
‘IWSO*  OFF 
7 
7 

WAIT  ‘PRESS  ANY  KEY  TO  CONTINUE* 

ENDIF 

ENDCASE 

*  - CLEARS  FILTERS - * 

SET  FILTER  TO 

*  - RESET  CHOICE  EQUAL  TO  ZERO - * 

CHOICE  -  0 

*  - CLOSES  ALL  OPEN  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 
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*REQU1S1TES/EVALS  DUE  VIEW* 
*  PROCEDURE  * 


^PROCEDURE  TO  VIEM  EVALUATIONS  DUE* 

PUBLIC  NTACTEST 
STORE  0  TO  N 

STORE  CTOO(*  II  •)  JO  NOATEl 
STORE  CTOD("  /  /  ")  TO  M0ATE2 
STORE  "  *  TO  NEAP 

SET  TALK  OFF 
CLEAR 

*ENTER  END  INfi  DATE  OF  OESIREO* 
♦—ELIGIBILITY  PERIOD—* 

i  S.  5  SAY  ‘ENTER  ENDING  DATE  OF; 
DESIRED  ZONE:  *  GET  HOATEl 
READ 
CLEAR 

♦CALCULATE  BEGINNING  OF  ZONE* 

DO  CASE 

CASE  NONTH(NDATEl)  -  1 
N0ATE2  -  NOATEl  -  183 
CASE  NONTH(NOATEl)  -  2 
NOATE2  -  NOATEl  -  180 
CASE  NONTH(NOATEl)  -  3 
N0ATE2  -  NOATEl  >  181 
CASE  NONTH(NOATEl)  -  4 
N0ATE2  -  NOATEl  -  180 
CASE  NONTH(NOATEl)  -  5 
N0ATE2  -  NOATEl  -  181 
CASE  NONTH(NOATEl)  -  6 
N0ATE2  -  NOATEl  •  180 
CASE  NONTH(NOATEl)  -  7 
N0ATE2  -  NOATEl  •  180 
CASE  NONTH(NOATEl)  -  8 
N0ATE2  -  NOATEl  -  183 
CASE  NONTH(NOATEl)  -  9 
N0ATE2  -  NDATEl  -  182 
CASE  NONTH(NOATEl)  -  10 
N0ATE2  -  NOATEl  -  183 
CASE  NONTH(NOATEl)  -  11 
N0ATE2  -  NOATEl  -  182 
CASE  NONTH(NOATEl)  -  12 
N0ATE2  -  NOATEl  •  183 
ENOCASE 
CLEAR 
SELECT  1 

♦OPEN  INDIVIDUAL  DATABASE  ANO  INDEX* 

USE  INOIV  INDEX  INOIV 
GOTO  TOP 
ERASE  TENP.NOX 

♦LOCATE  EVALUATIONS  THAT  WILL* 
♦EXPIRE  IN  THE  ELIGIBILITY  PERIOD* 
♦DISPLAY  BY  TYPE  THE  EVALUATIONS* 
♦DUE  AND  REQUISITES  RENAINING* 

INDEX  ON  EXPIREl  TO  TENP 
GOTO  TOP 

LOCATE  FOR  EXPIREl  <-  NOATEl 


N  -  4 


DO  WHILE  .NOT.  EOF() 

N  -  N  1 

NEXP  -  LEFT(CN0NTH(EXP1RE1).3}  * 
■  *  RIGHT(STR(YEAR(EXPIRE1).4).2) 

»  N.  0  SAY  TRINCLNANE)*”  ‘4-LEFT; 
(FNANE.l) 

»  N,  15  SAY  ‘INST/QUAL:  ‘4'ANEXP' 
IF  OPENBOOK  <  N0ATE2  .OR. 
DTOC(OPENBOOK)  -  (‘  /  /  ‘) 

B  N.  35  SAY  ‘OPEN  BOOK‘ 

ELSE 

ENOIF 

IF  CLOSEDBOOK  <  N0ATE2  .OR,; 
OTOC(CLOSEOBOOK)  -  (‘  /  /  *) 

B  N.  47  SAY  ‘CLOSED  BOOK‘ 

ELSE 

ENDIF 

IF  INSTRUNENT  <  N0ATE2  .OR.; 
DTOC(INSTRUNENT)  -  (‘  /  /  *) 

B  N.  60  SAY  ‘INSTRUNENT‘ 

ELSE 

ENDIF 

IF  lEPE  <  NDATE2  .OR.  OTOC(IEPE);  - 

(•//•) 

B  N.  73  SAY  ‘EPE‘ 

ELSE 

ENOIF 

CONTINUE 

ENDOO 

? 

7 

WAIT 

CLEAR 

ERASE  TEHP2.N0X 

INDEX  ON  EXPIRE2  TO  TENP2 

GOTO  TOP 

SELECT  2 

STORE  •  •  TO  NTACTEST 
USE  TYPE  EVA 

LOCATE  FOR  TYPE  •  ■TACTICAL‘ 
NTACTEST  -  TAC  REQ 
SELECT  1 

LOCATE  FOR  EXPIRE2  <  NDATEl 

N  -  4 


DO  WHILE  JIOT.  EOF() 

N  -  N  ♦  1 

NEXP  -  LEFT(CN0NTH(EXPIRE2).3)  ‘ 
‘  *  RI6HT(STR(YEAR(EXPIRE2),4),2) 

B  N.  0  SAY  TRIN(LNANE)+‘  ‘tLEFT; 
(FNANE.l) 

B  N,  15  SAY  ‘TACTICAL:  ‘♦'ANEXP* 

IF  TACTEST  <  N0ATE2  .OR. 
DTOCgACTEST)  -  (‘  /  /  ‘)  JIND. 

NTACTEST  -  ''y‘ 

B  N.  35  SAY  ‘TACTICAL  TEST‘ 

ELSE 

ENDIF 

IF  TEPE  <  N0ATE2  .OR.  OTOC(TEPE);  - 
(•  /  /  ‘) 

B  N.  53  SAY  ‘EPE‘ 

ELSE 

ENDIF 

CONTINUE 

ENDOO 

7 

7 

WAIT 
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CLEAR 

ERASE  TENP3.N0X 

INDEX  ON  EXPIRES  TO  TEHP3 

GOTO  TOP 

LOCATE  FOR  EXPIRES  <  MOATEl 

N  -  4 

00  WHILE  .NOT.  EOF() 

N  -  N  ♦  1 
NEXP 


>  LEFT(CN0NTH(EXPIRE3).3)  *i 
*  RIGHT(STR(yEAR(EXPIRE31.4).2} 


9  N.  0  SAY  TRINCLNANEH"  “♦LEFT; 
(FNANE.l) 

9  N.  IS  SAY  "MISSION:  "VANEXP* 

IF  TEPE  <  MDATE2  .OR.  OTOC(TEPE); 
■  /  •) 

•EPE" 


(■  / 

«.N.  40  SAY 
ELSE 
ENOIF 
CONTINUE 
ENOOO 
? 

7 

WAIT 

CLEAR 

ERASE  TEHP4.N0X 

INDEX  ON  EXPIRE4  TO  TENP4 

GOTO  TOP 

LOCATE  FOR  EXPIRE4  <  NDATEl 

N  -  4 

DO  WHILE  .NOT.  EOF(} 

N  -  N  4^  1 

NEXP  -  LEFT(CM0NTH(EXPIRE4).3]|  *i 
■  "  *  RIGHT(STR(YEAR(EXPIRE4).4).2) 
tf  N,  0  SAY  TRIN(LNANEV"  **LEFTi 
(FNANE.l) 

9  N,  15  SAY  "TAC/QUAL;  "♦'liNEXP' 

IF  TACTEST  <  N0ATE2  .OR. 
OTOC(TACTEST)  •  ("  /  /  ") 

'  .  "TACTI 


9  N. 

ELSE 
ENOIF 
IF  TEPE 
(•  / 


3S  SAY 


riCAL  TEST" 


<  N0ATE2  .OR. 
/  •} 


OTOC(TEPE)i 


9  N,  55  SAY  "EPE" 

ELSE 

ENOIF 

CONTINUE 

ENOOO 

7 

7 

WAIT 

CLEAR 


"REINITIALIZE  CHOICE  TO  ZERO" 
CHOICE  -  0 

" - CLOSE  ALL  DATABASES - " 

CLOSE  DATABASES 

" - RETURN  TO  MAIN  MENU - " 

RETURN 


"SUPEVAL  VIEW  PROCEDURE" 


"OPEN  APPROPRIATE  DATABASE* 

"—AND  INDEX—* 

USE  SUPEVAL  INDEX  SUPEVAL 

GOTO  TOP 

CLEAR 

"LIST  TO  SCREEN  ALL  CURRENT*  *— 
SUPPLEMENTAL  EVALUATIONS—" 

DISPLAY  FOR  STAY  US  <>  "CLOSED"; 
AREA.  OPR 

"INITIALIZE  MEMORY  VARIABLES" 

STORE  0  TO  NAREA 
STORE  *  "  TO  NRESPON 

"ENTER  MEMORY  VARIABLES  AT  SCREEN" 

9  24.  0  SAY  "ENTER  RECORD  NUMBER  OF 

SUPPLEMENTARY  EVALUATION  TO  VIEW:  " 

GET  NAREA 

READ 

CLEAR 

IF  NAREA  -  0 
CHOICE  -  0 
CLOSE  DATABASES 
RETURN 
ELSE 

"LOCATE  THE  REQUESTED  RECORD* 

LOCATE  FOR  RECNO()  -  NAREA 
"POSITION  FIELDS  ON  THE  SCREEN* 

DO  WHILE  FOUNOO 
9  1.0  SAY  "SUPPLEMENTARY; 
EVALUATIONS" 

9  3.5  SAY  "STATUS  OPR; 

AREA" 

9  5.5  GET  SUPEVAL->STATUS; 

9  5.15  GET  SUPEVAL->OPR; 

9  5.47  GET  SUPEVAL->AREA; 

9  7,5  SAY  "DATE  LAST  EVAL; 

DATE  NEXT  DUE" 

9  9.8  GET  SUPEVAL->OATEACC 
9  9,35  GET  SUPEVAL->DATEDUE 
9  11.5  SAY  "COMMENTS:" 

9  11,17  GET  SUPEVAL->CONMENT 
CLEAR  GETS 
7 
7 

WAIT  "PRESS  ANY  KEY  TO  CON:  INUE" 
ENDIF 

CLOSE  DATABASES 

RETURN 

ENDOO 

"REINITIALIZE  CHOICE  TO  ZERO" 

CHOICE  -  0 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 


*1N0IV10UAL  DELETE  PROCEDURE* 


*-PROCEOURE  TO  DELETE  INDIVIDUAL-* 
*— FROM  DATABASE—* 

*-OPEN  INOIV  DATABASE  AND  INDEX-* 

SET  TALK  OFF 

USE  INOIV  INDEX  INOIV 

GOTO  TOP 

CLEAR 

STORE  0  TO  MRECORO 
STORE  *  *  TO  NRESPON 
CLEAR 

7 

GOTO  TOP 

*LIST  ALL  INDIVIDUALS  IN  DATABASE* 
*ALLOM  USER  TO  SELECT  INDIVIDUAL* 

* - TO  BE  DELETE - * 

DO  WHILE  .NOT.  EOF()  JINO. ; 

MRECORO  -  0 

DISPLAY  NEXT  18  TRIN(LNAME).i 
TRIN(FNANE).  TRINCNI).**.: 
TRIN(RANK).ACFT 

B  24  .  5  SAY  "ENTER  RECORD  NUMBER; 
OF  INDIVIDUAL  TO  DELETE:  *; 

GET  MRECORO 
READ 
CLEAR 
ENOOO 

IF  EOF()  JINO.  MRECORO  -  0 

CLOSE  DATABASES 

RETURN 

ELSE 

GOTO  MRECORO 
CLEAR 

*OISPLAY  SELECTED  RECORD  ON  SCREEN* 

•  1,  12  SAY  "PERSONAL  DATA; 

GROUND  PHASE  REQUISITES" 

8  3.  0  SAY  "UST  NAME,; 

FIRST  MI.  TYPE; 

DATE  SCORE" 

«  4.  0  GET  INOIV->LNAME 

•  4,  19  GET  1N01V->FNAME 

•  4.  32  GET  1N01V->MI 

8  5.  0  SAY  "ORGANIZATION; 

CLOSED  BOOK" 

8  6.  0  GET  IN0IV->0R6AN 

8  7,  0  SAY  "LOCATION  EPE" 

8  8.  0  GET  INOIV->LOCAT 

8  9.  0  SAY  "RANK  SSAN; 

ACFT  TYPE" 

8  10.  0  GET  INDIV->RANK 

8  10,  10  GET  1N0IV->SSAN 

8  10.  22  GET  1N01V->ACFT 

8  11.  0  SAY  "CREW  POSITION" 

8  12.  0  GET  1N01V->P0SITI0N 

8  4.  42  SAY  "OPEN  BOOK" 

8  4,  57  GET  1NOIV->OPENBOOK 

8  4.  67  GET  IN0IV->SC0RE1 

8  5.  42  SAY  "CLOSED  BOOK" 

8  5.  57  GET  INOIV->CLOSEOBOOK 

8  5.  67  GET  IN0IV->SC0RE2 


6. 

42 

SAY 

"INSTRUMENT" 

6. 

57 

GET 

1N01V->INSTRUNENT 

6. 

67 

GET 

1N01V->SC0RE3 

7, 

42 

SAY 

"INST  EPE" 

7. 

57 

GET 

IND1V->IEPE 

7, 

67 

GET 

IN01V->SC0RE4 

8. 

42 

SAY 

"TACTICAL" 

8. 

57 

GET 

IN0IV->TACTEST 

8. 

67 

GET 

IN0IV->SC0RE6 

9. 

42 

SAY 

"TAC  EPE" 

9. 

57 

GET 

1N01V->TEPE 

9. 

67 

GET 

1N01V->SC0RE7 

10. 

42 

SAY 

"CAPS/BOLO  FACE" 

10. 

57 

GET 

1N0IV->CAPS 

10. 

67 

GET 

1N0IV->SC0RE5 

12. 

49 

SAY 

"FLIGHT  EVALUATIONS" 

14. 

25 

SAY 

"TYPE; 

EXPIRATION 

ZONE" 

15. 

25 

SAY 

■INST/QUAL" 

15. 

45 

GET 

IN0IV->EXP1RE1 

15, 

55 

GET 

1N01V->Z0NE1 

16. 

25 

SAY 

"TACTICAL" 

8 

16. 

45 

GET 

IN0IV->EXP1RE2 

16. 

55 

GET 

IND1V->Z0NE2 

17. 

25 

SAY 

"MISSION" 

17. 

45 

GET 

1N01V->EXP1RE3 

17. 

55 

GET  INDIV->Z0NE3 

18, 

25 

SAY 

"TAC/QUAL" 

IB. 

45 

GET 

IND1V->EXPIRE4 

18. 

55 

GET 

IN0IV->Z0NE4 

19. 

25 

SAY 

"QUALIFICATION" 

19. 

45 

GET 

IND1V->EXP1RE5 

19, 

55 

GET 

IN0IV->Z0NE5 

20. 

25 

SAY 

"INSTRUCTOR" 

8  20. 

45 

GET 

IN01V->EXPIRE6 

8 

20. 

55 

GET 

IND1V->Z0NE6 

8 

21. 

25 

SAY 

■RIGHT/REAR  UN01N6" 

8 

21. 

45 

GET 

1N0IV->REARUN0 

8 

23, 

5 

SAY 

■IS  THIS  THE  FILE  YOU 

WANT  DELETED?" 

8  24,  5  SAY  "(Y)  FOR  YES  OR; 

RETURN  FOR  NO:  " 

CLEAR  GETS 
ENDIF 

*— MAKE  POSITIVE  CHOICE  TO  DELETE—* 
* — THIS  RECORD—* 

8  24.  37  SAY  ""  GET  NRESPON; 

PICTURE  "81" 

READ 

IF  "Y"  -  NRESPON 

DELETE  FOR  RECNO()  -  MRECORO 

PACK 

ELSE 

ENDIF 

CHOICE  -  0 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 
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*FCIF  DELETE  PROCEDURE* 


^PROCEDURE  TO  DELETE  FCIF  ITEMS* 
CLEAR 

SET  TALK  OFF 
SET  HEADING  OFF 
PUBLIC  NPUBNUN,  NCOUNT 
STORE  "  ■  TO  NRESPON 

*8EGIN  DO  LOOP  TO  DELETE  ANY* 
*— FCIF  ITEM—* 

DO  WHILE  CHOICE  <>  5 

CLEAR 

TEXT 


DELETE  FCIF  ITEMS 


1.  PUBLICATION 

2.  SUPPLEMENT 

3.  CHANGE 

4.  INC 

5.  READ  FILE.  ITEM 
RETURN  TO  MAIN  MENU 

ENOTEXT 

*ORAH  DOUBLE  LINE  AT  COORDINATES* 

«  4,15  TO  4.60  DOUBLE 
«  1,15  TO  20,60  DOUBLE 

*  - ENTER  USER'S  CHOICE - * 

«  23.  25  SAY  'ENTER  CHOICE'; 

GET  CHOICE; 

PICTURE  '9'  RANGE  1.  5 
READ 

*  - EXECUTE  USER'S  CHOICE - * 

DO  CASE 

CASE  CHOICE  -  1 

*OPEN  FCIF  DATABASE  FOR  PUBS* 

STORE  0  TO  NANSHER 
CLEAR 

*  5.  5  SAY  *(1)  TECH  ORDER  * 

»  6,  5  SAY  '(2)  PUBLICATIONS'; 
GET  NANSHER; 

PICTURE  '9'  RANGE  1.2 

READ 

DO  CASE 

CASE  NANSHER  -  1 

'—INITIALIZE  MEMORY  VARIABLES—* 


USE  TECHORO  INDEX  TECHORD 
STORE  '  '  TO  NPUBNUM 

STORE  *  '  TO  MPU62 

STORE  '  '  TO  MPUB3 

STORE  ■  •  TO  MPUB4 

STORE  '  '  TO  NPUB5 


* - DEFINE  MEMORY  VARIABLES - * 

»  5.  5  SAY  'ENTER  TECH  ORDER; 

TO  CHANGE:  '  GET  NPUBNUM; 

PICTURE  '»!' 

«  5.  40  SAY  "  GET  NPUB2; 

PICTURE  '•!' 

»  5,  46  SAY  "  GET  NPUB3; 

PICTURE  '»!' 

»  5.  52  SAY  "  GET  NPUB4: 

PICTURE  '#!' 

»  5.  58  SAY  "  GET  NPUB5; 

PICTURE  ••!' 

READ 
CLEAR 
GOTO  TOP 

*CONCATENTION  OF  MEMORY  VARIABLES* 


LOCATE  FOR  PUBNUN  -; 
TRIN('ANPUBNUN')  JIND. 
TRIN('ANPUB2')  .AND 


PUB2; 
PUB3; 

-  TRIN('ANPUB3*)  JIND.  PUB4; 
-  TRIM('ANPUB4')  .AND.  PUBS; 
TRIN('&NPUB5*^) 


8  2,  2  SAY  'FCIF  VOLUME  (  )' 

»  2.  15  GET  TECHORO->VOL 
#  4.  2  SAY  'STATUS  TECH  ORDER; 

NUMBER  DATE' 

8  5,  4  GET  rECHORO>>STATUS 

8  5.  9  GET  TECHORD->PUBNUN; 

PICTURE  '81' 

8  5,  15  GET  TECH0R0>>PUB2; 

PICTURE  '81' 

8  5.  21  GET  TECH0R0>>PUB3; 

PICTURE  '81' 

8  5,  27  GET  TECH0R0>>PUB4; 

PICTURE  '81' 

8  5.  33  GET  TECH0R0->PUB5; 

PICTURE  '81' 

8  7,  38  SAY  'TITLE' 

8  8.  25  GET  TECH0R0->TITLE; 
PICTURE  '81' 

8  5,  57  GET  TECH0R0->DATE 
8  10.  9  SAY  'DATE  ORDERED; 

DATE  RECEIVED' 


8  11.  11  GET 

8  11,  35  GET 

8  13.  9  SAY 

DISTRIBUTION' 

8  14,  11  GET 

8  14,  35  GET 

CLEAR  GETS 


TECHORO->OROEREO 
TECHORO->RECEIVEO 
'QUANTITY  ORDERED; 

TECHORD- >QUANT 
TECHORD->DIST 


*POSTIVE  DECISION  TO  DELETE  PUB* 


8  20.  5  SAY  'IS  THIS  THE;  TECH  ORDER 
YOU  WANT  TO  DELETE?  ';  GET  NRESPON; 
PICTURE  '81' 

READ 

IF  MRESPON  ■  'Y' 


83 


DELETE 

PACK 

ELSE 

ENOIF 

CLOSE  DATABASES 
RETURN 

CASE  NANS HER  -  2 
USE  FCIF  INDEX  FCIF 

*  - INITIALIZE  MEMORY  VARIABLE - * 

STORE  •  ■  TO  MTVPE 

STORE  0  TO  NNUM 

STORE  0  TO  NNUN2 

STORE  '  ■  TO  NVOLUNN 

CLEAR 

•ENTER  MEMORY  VARIABLE  AT* 

•—SCREEN  PROMPT—* 

«  5,  5  SAY  "ENTER  PUBLICATION  TO; 
CHANGE:  "  GET  NTYPE; 

PICTURE 

»  5.  41  SAY  ■*  GET  NNUM; 

PICTURE  "«###«" 
i  5.  47  SAY  GET  NNUN2; 

PICTURE  "##«#«" 
i  5.  55  GET  NVOLUMNi 
PICTURE  "Bl" 

READ 
CLEAR 
GOTO  TOP 

•LOCATE  THE  REQUESTED  PUBLICATION* 

LOCATE  FOR  TYPE  -  TRIM('AMTYPE') ; 
JkNO.  NUN  -  NNUM  JINO.  NUN2  -  NNUN2; 
JINO.  VOLUNN  -  TRIN('ANVOLUNN') 

•SET  SCREEN  FORMAT  TO  CHANGE* 
•—PUBLICATIONS  DATA—* 

«  3,  2  SAY  ‘FCIF  VOLUME  (  )" 

•  3,  15  GET  FCIF->VOL 

§  5,  2  SAY  "STATUS 

PUBLICATION; 

NUMBER  DATE" 

B  6.  4  GET  FCIF->STATUS 

B  6.  9  GET  FCIF->TYPE; 

PICTURE  "Bl" 

B  6.  17  GET  FC1F->NUM; 

PICTURE  "««##«" 

B  6.  22  SAY  "-" 

B  6,  23  GET  FC1F->NUM2; 

PICTURE  "#«#««" 

B  5.  29  GET  FCIF->VOLUMN; 

PICTURE  "BJ" 

B  6.  57  GET  FCIF->OATE 

B  8,  17  SAY  ‘  TITLE" 

B  9,  17  GET  FCIF->T1TLE; 

PICTURE  "Bl" 

B  11.  9  SAY  "DATE  ORDERED; 

DATE  RECEIVED" 

B  12.  11  GET  FCIF->OROEREO 

B  12.  35  GET  FCIF->RECE1VED 

B  14.  9  SAY  "QUANTITY  ORDERED; 

DISTRIBUTION" 


B  15.  11  GET  FCIF->QUANT 
B  15.  35  GET  FC1F->0IST 
CLEAR  GETS 

•POSITIVE  DECISION  TO  DELETE  PUB* 

B  20.  5  SAY  "IS  THIS  THE; 

PUBLICATION  YOU  WANT  TO  DELETE?;  * 
GET  NRESPON; 

PICTURE  "Bl" 

READ 

IF  NRESPON  ■  "Y" 

DELETE 

PACK 

ELSE 

ENDIF 

CLOSE  DATABASES 
RETURN 

ENDCASE 

CASE  CHOICE  -  2 

•OPEN  DATABASE  FOR  SUPPLEMENTS* 

•—TO  PUBLICATIONS— * 

USE  FCIF2  INDEX  FCIF2 

•—INITIALIZE  MEMORY  VARIABLES—* 

STORE  "  "  TO  NPUBNUM 

STORE  •  ‘  TO  MSUP 

CLEAR 

•ENTER  MEMORY  VARIABLES  AT  THE* 
•—SCREEN  PROMPT—* 

B  5.5  SAY  "  ENTER  THE  BASIC; 
PUBLICATION:  "  GET  MPUBNUN; 

PICTURE  "Bl" 

B  6.5  SAY  "ENTER  THE  SUPPLEMENT  TO; 
CHANGE:  "  GET  MSUP; 

PICTURE  "Bl" 

READ 

GOTO  TOP 

•LOCATE  THE  DESIRED  SUPPLEMENT*  *— 
FOR  A  GIVEN  PUBLICATION—* 

LOCATE  FOR  PUBNUN  -  '6NPUBNUM'; 

JIND.  SUP  -  '6NSUP' 

•SET  SCREEN  FORMAT  FOR  CHANGING* 
•—DATA  IN  SUPPLEMENT  FILE—* 

CLEAR 

B  3.  2  SAY  "FCIF  VOLUME  (" 

B  3.  15  GET  FC1F2->V0L 

B  3.  20  SAY  ")" 

B  5.  2  SAY  "PUBLICATION" 

B  6.  2  GET  FCIF2->PUBNUM; 

PICTURE  "Bl" 

B  9.  2  SAY  "STATUS  SUPPLEMENT; 

DATE  OF  SUPPLEMENT  ORDERED; 
RECEIVED" 

B  10.  4  GET  FCIF2->STATUS 

B  10.  9  GET  FC1F2->SUP; 

PICTURE  "Bl" 


84 


DELETE 

PACK 

ELSE 

ENOIF 

CLOSE  DATABASES 
RETURN 

CASE  HANSUER  -  2 
USE  FCIF  INDEX  FCIF 

* — initialize  memory  variable - * 

STORE  •  ■  TO  MTYPE 

STORE  0  TO  MNUM 

STORE  0  TO  MNUM2 

STORE  ■  ■  TO  MVOLUMN 

CLEAR 

•ENTER  MEMORY  VARIABLE  AT« 

•—SCREEN  PROMPT— • 

•  5>  5  SAY  ‘ENTER  PUBLICATION  TO; 
CHANGE:  *  GET  MTYPE; 

PICTURE  *Bl‘ 

»  5.  41  SAY  “  GET  MNUM; 

PICTURE  •#####• 
i  5.  47  SAY  GET  MNUM2; 

PICTURE  •#####• 
i  S.  55  GET  MVOLUMN; 

PICTURE 
READ 
CLEAR 
GOTO  TOP 

•LOCATE  THE  REQUESTED  PUBLICATION^ 

LOCATE  FOR  TYPE  •  TRIM('»MTYPE') ; 
.AND.  NUM  ■  MNUM  .AND.  NUM2  •  MNUM2; 
JVNO.  VOLUMN  -  TRIM('AMVOLUMN') 

•SET  SCREEN  FORMAT  TO  CHANGE^ 
•—PUBLICATIONS  DATA— • 

•  3,  2  SAY  ‘FCIF  VOLUME  {  )‘ 

9  3.  15  GET  FC1F->V0L 

N  5,  2  SAY  “STATUS 

PUBLICATION; 

NUMBER  DATE* 

i  6,  4  GET  FCIF->STATUS 

»  6,  9  GET  FCIF->TYPE; 

PICTURE  “•!“ 

9  6,  17  GET  FCIF->NUM; 

PICTURE  “#####“ 

9  6,  22  SAY 

9  6.  23  GET  FC1F->NUM2; 

PICTURE  “#####“ 

•  6,  29  GET  FCIF->VOLUMN; 

PICTURE  “il“ 

9  6,  57  GET  FCIF->DATE 

•  8,  17  SAY  “  TITLE* 

9  9,  17  GET  FC1F->TITLE; 

PICTURE  “#l" 

9  11.  9  SAY  “DATE  ORDERED; 

DATE  RECEIVED* 

9  12.  11  GET  FCIF->ORDEREO 

9  12.  35  GET  FCIF->RECEIVED 

9  14.  9  SAY  “QUANTITY  ORDERED; 

DISTRIBUTION* 

•  10.  29  GET  FCIF2->0ATE 


i  15.  11  GET  FCIF->QUANT 
9  15.  3b  GET  FCIF->DIST 
CLEAR  GETS 

•POSITIVE  DECISION  TO  DELETE  PUB* 

9  20.  5  SAY  “IS  THIS  THE; 
PUBLICATION  YOU  WANT  TO  DELETE?;  * 
GET  MRESPON; 

PICTURE  “fl* 

READ 

IF  MRESPON  -  *Y* 

DELETE 

PACK 

ELSE 

ENDIF 

CLOSE  DATABASES 
RETURN 

ENDCASE 

CASE  CHOICE  -  2 

•OPEN  DATABASE  FOR  SUPPLEMENTS* 
•—TO  PUBLICATIONS—* 

USE  FCIF2  INDEX  FCIF2 

•—INITIALIZE  MEMORY  VARIABLES—* 

STORE  *  *  TO  MPUBNUM 

STORE  *  ■  TO  MSUP 

CLEAR 

•ENTER  MEMORY  VARIABLES  AT  THE* 
•—SCREEN  PROMPT—* 

9  5.5  SAY  *  ENTER  THE  BASIC: 
PUBLICATION:  *  GET  MPUBNUM; 

PICTURE  *il* 

9  6.5  SAY  “ENTER  THE  SUPPLEMENT  TO; 
CHANGE:  “  GET  MSUP; 

PICTURE  “•!“ 

READ 

GOTO  TOP 

•LOCATE  THE  DESIRED  SUPPLEMENT*  *- 
FOR  A  GIVEN  PUBLICATION--* 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM'; 

.AND.  SUP  -  'AMSUP' 

•SET  SCREEN  FuRNAT  FOR  CHANGING* 
•—DATA  IN  SUPPLEMENT  FILE—* 

CLEAR 

•  3.  2  SAY  “FCIF  VOLUME  (“ 

B  3.  15  GET  FCIF2->V0L 

»  3.  20  SAY  “)“ 

»  5.  2  SAY  “PUBLICATION* 

•  6.  2  GET  FCIF2->PUBNUN; 

PICTURE  “•!“ 

»  9.  2  SAY  “STATUS  SUPPLEMENT; 

DATE  OF  SUPPLEMENT  ORDERED; 
RECEIVED* 

9  10.  4  GET  FCIF2->STATUS 

9  10.  9  GET  FCIF2->SUP; 

PICTURE  “#l“ 

9  9.  27  GET  FCIF3->0ATE 
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B 

10. 

46 

GET 

FCIF2->0RDERED 

B 

10. 

S7 

GET 

FCIF2-7RECE1VE0 

CLEAR 

GETS 

B 

9. 

39 

GET 

FC1F3>>0R0ERE0 

B 

9. 

51 

GET 

FCIF3->REC£1VED 

*P0S1TIVE  DECISION  TO  DELETE  SUP* 


i  20.  S  SAY  "IS  THIS  THE;  SUPPLEMENT 
YOU  WANT  TO  DELETE?  *  GET  NRESPON; 
PICTURE  "Ol" 

READ 

IF  MRESPON  -  "Y" 

DELETE 

PACK 

ELSE 

ENOIF 

CLOSE  DATABASES 
RETURN 


CASE  CHOICE  -  3 

*OPEN  DATABASE  TO  DELETE  DATA; 

*— IN  FILE—* 

USE  FCIF3  INDEX  FCIF3 

*- INITIALIZE  MEMORY  VARIABLES—* 

STORE  "  *  TO  MPUBNUM 

STORE  *  *  TO  MCHANGE 

CLEAR 

*ENTER  MEMORY  VARIABLES  AT  THE* 

*— SCREEN  PROMPT—* 

i  S.S  SAY  "ENTER  THE  SASIC; 
PUBLICATION:  "  GET  MPUBNUM; 

PICTURE  "il" 

f  6.S  SAY  "ENTER  THE  CHANGE  TO  EDIT; 
:  "  GET  MCHANGE; 

PICTURE  "•!" 

READ 

GOTO  TOP 

*LOCATE  THE  DESIRED  CHANGE  TO* 

*— THE  GIVEN  PUBLICATION—* 

LOCATE  FOR  PUBNUM  -  '&MPUBNUM'; 

JiMD.  CHANGE  -  'CMCHANGE' 


CLEAR  GETS 

*POSITIVE  DECISION  TO  DELETE  CHANGE 
§  20.  5  SAY  "IS  THIS  THE  CHANGE  YOU 
WANT  TO  DELETE?  "  GET  MRESPON; 
PICTURE  "SI" 

READ 

IF  MRESPON  •  "Y" 

DELETE 

PACK 

ELSE 

ENDIF 

CLOSE  DATABASES 

RETURN 

PACK 

ELSE 

ENDIF 

CLOSE  DATABASES 
RETURN 

CASE  CHOICE  -  4 

*  - OPEN  DATABASE  FOR  IMCS - * 

USE  FCIF4  INDEX  FCIF4 

*INITIALIZE  MEMORY  VARIABLES* 

STORE  "  "  TO  MPUBNUM 

STORE  "  "  TO  MIMC 

CLEAR 

*ENTER  MEMORY  VARIABLES  AT*  *— 
SCREEN  PROMPT—* 

»  S.S  SAY  "ENTER  THE  BASIC; 
PUBLICATION:  "  GET  MPUBNUM; 

PICTURE  "Bi" 

*  S.S  SAY  "  ENTER  THE  IMC  TO; 
EDIT:  "  GET  MIMC; 

PICTURE  "Bl" 

READ 

GOTO  TOP 

*  - LOCATE  THE  DESIRED  IMC - * 

LOCATE  FOR  PUBNUM  -  'AMPUBNUM'; 

.AND.  IMC  -  'AM IMC 

*SET  SCREEN  FORMAT  FOR  CHANGING* 

*— DESIRED  IMC—* 


*SET  SCREEN  FORMAT  TO  DELETE  DATA* 


CLEAR 

B  2.  2  SAY  "FCIF  VOLUME  (" 

B  2.  IS  GET  FCIF3->V0L 

B  2.  20  SAY  "j" 

B  4.  2  SAY  'PUBLICATION" 

B  S.  2  GET  FCIF3->PUBNUM: 

PICTURE  "Bl" 

B  7.  28  SAY  "CHANGE" 

B  8.  2  SAY  "STATUS  CHANGE; 

NUMBER  DATE  ORDERED; 

RECEIVED" 

B  9.  4  GET  FCIF3->STATUS 

B  9.  10  GET  FCIF3->CHANGE; 

PICTURE  "Bl" 

*P0SIT1VE  DECISION  TO  DELETE  INC* 
B  20.  5  SAY  "IS  THIS  THE  INC  YOU; 
WANT  TO  DELETE?  "  GET  MRESPON; 


CLEAR 

B  3.  2  SAY  "FCIF  VOLUME  {" 

B  3.  IS  GET  FCIF4->V0L 

B  3.  20  SAY  ")■ 

B  S.  2  SAY  "PUBLICATION" 

B  S.  2  GET  FCIF4->PUBNUN; 
PICTURE  "Bl" 


B 

8. 

2 

SAY 

"STATUS  IMC; 

DATE 

ORDERED  RECEIVED" 

B 

9. 

4 

GET 

FCIF4->STATUS 

B 

9. 

10 

GET 

FCIF4->IMC; 

PICTURE 

"Bl" 

B 

9. 

23 

GET 

FCIF4->0ATE 

B 

9. 

34 

GET 

FCII'4->OROEREO 

B 

9. 

4S 

GET 

FC1F4->RECE1VED 

CLEAR 

GETS 

B 

6. 

2 

SAY 

"NUMBER; 

SUBJECT  ENTERED  EXPIRES  REVIEW 
B  7.  2  GET  FCIF5->C0NTNUN 


'i 

\ 


I 


■xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

»  7.  15  GET  FCIF5->SUBJECT 

PICTURE 

0  7.  49  GET  FC1F5->ENTERED 

0  7,  59  GET  FCIF5->EXPIRES 

0  7.  69  GET  FC1F5->REVIEU 

0  10.  0  SAY  ‘COMMENTS:* 

0  10,  11  GET  FCIF5->C0MMENT 

0  12.  5  SAY  "ORIGINATOR:  * 

0  12.  18  GET  FCIF5>>0RIG1NAT0R 

STORE  *  *  TO  MRESPON 

CASE  CHOICE  -  5 

*OPEN  DATABASE  FOR  READ  FILE  ITEMS* 

USE  FCIF5  INDEX  FCIF5 

CLEAR 

MCOUNT  -  1 

LOCATE  FOR  .NOT.  EOF() 

7  *CONT#  SUBJECT  ORIGINATOR* 

7*  ; 

7 - 

DO  WHILE  FOUNOO 

IF  MCOUNT  <•  4 

DISPLAY  CONTNUM.  SUBJECT.; 

ORIGINATOR  OFF 

7  'ENTERED:*. ENTERED.*EXPIRES:*.; 
EXPIRES.*  REVIEW  REQUIRED:*, REVIEW 

7* _ _ 

7 - 

MCOUNT  -  MCOUNT  *  1 

CONTINUE 

ELSE 

WAIT  *  PRESS  ANY  KEY  TO  CONTINUE* 

CLEAR 

MCOUNT  -  1 

7  'CONTI  SUBJECT  ORIGINATOR* 
7* _ 

7 — ^ - 

DISPLAY  CONTNUM.  SUBJECT.; 

ORIGINATOR  OFF 

7  "ENTERED:*. ENTERED.*  EXPIRES:*.; 
EXPIRES.*  REVIEW  REQUIRED:*,REVIEW 

7* 

.  I-  —  —  —  — n 

7 - 

MCOUNT  -  MCOUNT  *  1 

CONTINUE 

ENDIF 

ENOOO 

STORE  *  *  TO  MCONTNUM 

0  23  .  5  SAY  "ENTER  CONTROL  NUMBER; 
OF  ITEM  TO  DELETE:  *  GET  MCONTNUM 
READ 
CLEAR 

LOCATE  FOR  CONTNUM  -  'AMCONTNUM' 

DO  WHILE  FOUNOO 
0  3,  2  SAY  *FCIF  VOLUME  {* 

0  3,  15  GET  FCIF5->V0L 

0  3,  20  SAY  *)• 

0  5.  2  SAY  "CONTROL* 


CLEAR  GETS 
MCONTNUM  -  CONTNUM 

"POSITIVE  DECISION  TO  DELETE  ITEM* 

0  21,  5  SAY  "IS  THIS  THE  FCIF  ITEM 
YOU  WANT  TO  DELETE  7  * 

0  22.  5  SAY  *(Y)  FOR  YES  RETURN; 
FOR  NO:  *  GET  MRESPON 
READ 

IF  *Y*  -  'AMRESPON' 

DELETE  FOR  CONTNUM  -  'AMCONTNUM* 

PACK 

RETURN 

ELSE 

ENDIF 

ENDCASE 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 
"REINITIALIZE  CHOICE  TO  ZERO* 
CHOICE  -  0 

*  - RETURN  TO  MAIN  MENU - * 

RETURN 
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••*•*******••****•*•**«******* 

MF  FORM  847  DELETE  PROCEDURE* 

CLEAR 

SET  TALK  OFF 

STORE  *  *  TO  MNUHBER 

STORE  *  "  TO  NNUM 

USE  F847  INDEX  F847 

CHOICE  -  0 

CLEAR 

GOTO  TOP 

CLEAR 

DISPLAY  ALL  UNIT.NUNBER.  PUB.  TITLE; 
OFF 

8  24.  S  SAY  "ENTER  FORM  847  CONTROL; 
NUMBER  TO  DELETE:  *  GET  MNUMBER 
READ 

MNUM  -  MNUMBER 

CLEAR 

GOTO  TOP 

IF  "  "  -  '4MNUMBER' 

CHOICE  -  0 
CLOSE  DATABASES 
RETURN 
ELSE 

LOCATE  FOR  NUMBER  -  TRIM(NNUMBER) 

00  WHILE  FOUNOO 
§  1.  0  SAY  ^STATUS" 

8  1.  IB  SAY  "RECOMMENDATION  FOR; 

CHANGE  OF  PUBLICATION" 

8  2.  0  GET  FB47->STATUS; 

8  3.  34  SAY  "DATE" 

8  3.  39  GET  FB47->0ATE 

8  3.  SO  SAY  "UNIT/NUMBER" 

8  3.  62  GET  F847->UNIT; 

8  3.  70  SAY  "-" 

8  3.  71  GET  F847<>NUNBER 

8  5.  0  SAY  "PUBLICATION  NUMBER; 

BASIC  DATE  REVISION/CHANGE; 

DATE" 


8 

6. 

1 

GET 

F847->PUB; 

8 

6. 

24 

GET 

F847->BAS0ATE 

8 

6. 

4S 

GET 

F847->REV0ATE 

8 

B. 

0 

SAY 

"PAGE  NUMBER; 

MAJOR 

PARAGRAPH  TITLE" 

8 

9. 

I 

GET 

F847->PA6E 

8 

9. 

17 

GET 

F847->TITLE; 

8 

11. 

0 

SAY 

"SUB-PARAGRAPH  TITLE; 

ITEM  NUMBER" 

12. 

1 

GET 

F847->SUBPAR; 

12. 

SS 

GET 

F847->1TEMNUM 

14. 

1 

GET 

F847->CHANGE; 

14, 

3 

SAY 

"CHANGE" 

14, 

12 

GET 

F847->0ELETE 

14. 

14 

SAY 

"DELETE  SO  MUCH; 

OF 

>• 

14, 

39 

GET 

F847->PAR; 

14. 

41 

SAY 

"PARAGRAPH" 

14, 

S3 

GET 

F847->ITEN 

14, 

SS 

SAY 

"ITEM" 

14, 

62 

GET 

F847->FIG; 

14. 

64 

SAY 

"FIGURE" 

16. 

0 

SAY 

"AS  READS" 

16. 

11 

SAY  ■ 

'Press  “PgDn  To  View"; 

GET  CURTEXTl 
CLEAR  GETS 
7 


7 

7 


WAIT  ' 

'  PRESS  ANY  KEY  TO  CONTINUE 

CLEAR 

8  1. 

0 

SAY 

"TO  READ" 

8  2. 

11 

GET 

F847->PR0PTEXT 

8  9. 

0 

SAY  ' 

•AFTER  PRESENT" 

8  11. 

20 

GET 

F847->SENT; 

8  11, 

22 

SAY 

"SENTENCE" 

8  11, 

37 

GET 

F847->ITEM3; 

8  11. 

39 

SAY 

"ITEM" 

8  13. 

0 

SAY 

"AS  READS" 

8  15, 

11 

GET 

F847->C0RTEXT2 

8  22. 

0 

SAY 

"ADO  NEW" 

8  22, 

13 

GET 

FB47->PAR2; 

8  22. 

IS 

SAY 

"PARAGRAPH" 

8  22, 

28 

GET 

F847->SENT2; 

8  22. 

30 

SAY 

"SENTENCE" 

8  22. 

42 

GET 

F847->ITEM4; 

8  22. 

44 

SAT 

"ITEM" 

8  22. 

53 

GET 

F847->FIG2; 

8  22. 

SS 

SAY 

"FIGURE" 

CLEAR  GETS 


WAIT 

"  PRESS 

ANY  KEY  TO  CONTINUE 

CLEAR 
8  1. 

0 

SAY 

"TO  READ" 

8  2. 

11 

GET 

FB47->CURTEXT3 

8  9. 

0 

SAY 

"REASON" 

8  11, 

11 

GET 

F847->REAS0N 

8  22. 

0 

SAY 

"ORGANIZATION" 

8  22. 

14 

GET 

F847->0RGAN; 

8  24. 

0 

SAY 

"NANE/GRAOE  OF; 

ORIGINATOR" 

8  24.  27  GET  F847->NAME; 

CLEAR  GETS 

WAIT  "  PRESS  ANY  KEY  TO  CONTINUE" 
CLEAR 

8  IS.  10  SAY  "IS  THIS  THE  FORM  847 
YOU  WANT  TO  DELETE?" 

CLEAR  GETS 

STORE  "  "  TO  MRESPON 
8  16.  10  SAY  "(Y)  FOR  YES  OR  RETURN 
FOR  NO:  "  GET  MRESPON 
READ 

IF  "Y"  -  'AMRESPON* 

DELETE  FOR  NUMBER  -  TRIN(MNUM) 

PACK 

CHOICE  -  0 

CLOSE  DATABASES 

ENDDO 

RETURN 

ELSE 

CLOSE  DATABASES 
CHOICE  -  0 
ENOIF 
RETURN 


•INDIVIDUAL  FORMAT  FILE* 


•  1.  12  SAY  "PERSONAL  DATA; 
GROUND  PHASE  REQUISITES" 

•  3.  0  SAY  "LAST  NAME.; 

FIRST  MI.  TYPE; 

DATE  SCORE" 


8  4. 

u 

GET 

IN01V->LNAME; 

PICTURE  "81" 

8  4. 

19 

GET 

IN01V->FNAME; 

PICTURE 

"81" 

8  4. 

32 

GET 

1N0IV->NI; 

PICTURE  ' 

81" 

8  5. 

0 

SAY 

"ORGANIZATION; 

CLOSED  BOOK" 

PICTURE 

■81" 

8  6. 

0 

GET 

INOIV->ORGAN; 

PICTURE 

•81" 

8  7. 

0 

SAY 

"LOCATION; 

EPE" 

8  8. 

0 

GET 

IN0IV->L0CAT; 

PICTURE 

"8i" 

8  9. 

0 

SAY 

"RANK  SSAN; 

ACFT 

TYPE" 

8  10. 

0 

GET 

IN0IV->RANK; 

PICTURE 

•81" 

8  10. 

10 

GET 

IN0IV->SSAN; 

PICTURE 

999-99-9999* 

8  10. 

22 

GET 

IN0IV->ACFT; 

PICTURE 

•81" 

8  11. 

0 

SAY 

"CREW  POSITION" 

8  12. 

0 

GET 

INOIV->POSITION; 

PICTURE  "8J" 

8  4, 

42 

SAY 

"OPEN  BOOK" 

8  4, 

57 

GET 

INOIV->OPENBOOK 

8  4. 

67 

GET 

INOiy->SCOREl 

8  5. 

42 

SAY 

•CLOSED  BOOK" 

8  5. 

57 

GET 

INOIV->CLOSEOBOOK 

8  5. 

67 

GET 

IN0IV->SC0RE2 

8  6. 

42 

SAY 

"INSTRUMENT" 

8  6, 

57 

GET 

INOIV«>INSTRUNENT 

8  6. 

67 

GET 

INDIV->SC0RE3 

8  7. 

42 

SAY 

"INST  EPE" 

8  7. 

57 

GET 

IN0IV->IEPE 

8  7. 

67 

GET 

INDIV->SC0RE4 

8  8, 

42 

SAY 

"TACTICAL" 

8  8. 

57 

GET 

IN0IV->TACTEST 

8  8. 

67 

GET 

INDIV->SC0RE6 

8  9, 

42 

SAY 

"TAC  EPE" 

8  9, 

57 

GET 

IN0IV->TEPE 

8  9, 

67 

GET 

IN0IV->SC0RE7 

8  10. 

42 

SAY 

"CAPS/BOLD  FACE" 

8  10, 

57 

GET 

INOIV->CAPS 

8  10, 

67 

GET 

IN0IV->SC0RE5 

8  12. 

49 

SAY 

"FLIGHT  EVALUATIONS 

8  14. 

25 

SAY 

"TYPE  EXPIRATION; 

ZONE" 

8  15. 

25 

SAY 

■INST/QUAL" 

8  15. 

45 

GET 

IN0IV->EXPIRE1 

8  15, 

55 

GET 

INDiy->ZONEl 

•  16. 

25 

SAY 

■TACTICAL" 

8  16. 

45 

GET 

IN0IV->EXPIRE2 

8  16. 

55 

GET 

IN0IV->Z0NE2 

8  17, 

25 

SAY 

"MISSION" 

8  17. 

45 

GET 

IN0IV->EXPIRE3 

8  17. 

55 

GET  INDIV->Z0NE3 

t  18.  25 
»  18.  45 
»  18.  55 
»  19.  25 

•  19.  45 
»  19.  55 
8  20.  25 

•  20.  45 
8  20.  55 
8  21.  25 
8  21.  45 


SAY  "TAC/QUAL" 

GET  IN0IV->EXPIRE4 
GET  IN0IV->Z0NE4 
SAY  "QUALIFICATION" 

GET  IN0IV->EXPIRE5 
GET  IN0IV->Z0NE5 
SAY  "INSTRUCTOR" 

GET  IN0IV->EXPIRE6 
GET  INDiy->Z0NE6 
SAY  "RIGHT/REAR  UNOING" 
GET  INDiy->REARLANO 


*FCIF  FORMAT  FILE* 


8  3,  2  SAY  "FCIF  VOLUME  (  )" 

8  3.  15  GET  FCIF->VOL 

8  5.  2  SAY  "STATUS  PUBLICATION; 

NUMBER  DATE" 

8  6.  4  GET  FCIF->STATUS 

8  6.  9  GET  FCIF->TYPE; 

PICTURE  "81" 

8  6.  17  GET  FCIF->NUM; 

PICTURE  "«##«#" 

8  6.  22  SAY  "-" 

8  6.  23  GET  FCIF->NUM2; 

PICTURE  •#####" 

8  6.  29  GET  FCIF->VOLUMN; 

8  6.  57  GET  FCIF->DATE 

8  8.  17  SAY  "  TITLE" 

8  9.  17  GET  FCIF->T1TLE; 

PICTURE  "81" 

8  11.  9  SAY  "DATE  ORDERED; 

DATE  RECEIVED" 

8  12,  II  GET  FCIF->0RDER£0 

8  12.  35  GET  FCIF->RECEIVED 

8  14,  9  SAY  "QUANTITY  ORDERED; 

DISTRIBUTION" 

8  15.  11  GET  FC1F->QUANT 

8  15.  35  GET  FCIF->OIST 
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*SUPEVAL  DELETE  PROCEDURE* 

♦PROCEDURE  TO  DELETE  A* 

•— SUPPLEMERTARY  EWALUATIOR  ITEH— * 
*— OPER  APPROPRIATE  DATABASE—* 

* - ARO  IROEX - * 

USE  SUPEVAL  IROEX  SUPEVAL 

GOTO  TOP 

CLEAR 

♦DISPLAY  TO  SCREER  SUPPLEMERTARY* 

*— EVALUATIOR  AREAS—* 

♦ALLOU  USER  TO  CHOSE  AREA  TO  DELETE* 

DISPLAY  ALL  AREA.  OPR 

STORE  •  •  TO  MAREA 

i  24.  0  SAY  ‘ERTER  AREA  OF; 

SUPPLEMERTARY  EVALUATIOR  TO  VIEW:  *: 

GET  MAREA 

READ 

CLEAR 

LOCATE  FOR  AREA  -  'AMAREA* 

DO  WHILE  FOUROO 

*  - FORMAT  SCREER - * 

•  1.0  SAY  "SUPPLEMERTARY; 
EVALUATIORS* 

#  3.5  SAY  "STATUS  OPR  AREA" 

#  5.5  GET  SUPEVAL->STATUS 
f  5.15  GET  SUPEVAL>>OPR 

f  5.47  GET  SUPEyAL->AREA 
»  7.5  SAY  "DATE  UST  EVAL; 

DATE  REXT  DUE" 

«  9.8  GET  SUPEVAL- >DATEACC 

#  9,35  GET  SUPEVAL- >OATEOUE 

•  11,5  SAY  "COMMERTS:" 

«  11.17  GET  SUPEVAL->COMMEMT 
CLEAR  GETS 

STORE  "  "  TO  MRESPOR 
t  15.  5  SAY  "IS  THIS  THE  AREA  YOU; 
WART  TO  DELETE?" 

#  16,  5  SAY  "(Y)  FOR  YES  RETURR  FOR; 
MO:  "  GET  MRESPOR 

READ 

♦POSITIVE  OECISIOR  TO  DELETE  AREA* 

IF  "Y"  -  'AMRESPOR' 

DELETE 

PACK 

CLOSE  DATABASES 

RETURR 

EMDIF 

ELSE 

CHOICE  -  0 
CLOSE  DATABASES 
RETURR 
EMDOO 

*— REIRITIALIZE  CHOICE  TO  ZERO — * 
CHOICE  -  0 

*  - CLOSE  ALL  DATABASES - * 

CLOSE  DATABASES 

*  - RETURR  TO  MAIR  MERU - * 

RETURR 


*FC1F  SUPPLEMENT  FORMAT  FILE* 


*FCIF  IMC  FORMAT  FILE* 


0  3.  2  SAY  "FCIF  VOLUME  (” 

»  3.  15  6ET  FC1F2->V0L: 

PICTURE  "Ol* 

W  3,  20  SAY  ■)■ 

i  5.  2  SAY  ‘PUBLICATION* 

•  6.  2  GET  FCIF2->PUBNUMi 

PICTURE  ‘il* 

•  9.  2  SAY  ‘STATUS  SUPPLEMENT; 

DATE  OF  SUPPLEMENT  ORDERED; 
RECEIVED* 

•  10.  4  GET  FC1F2->STATUS 

»  10.  9  GET  FCIF2->SUP; 

PICTURE  ‘il* 

B  10.  29  GET  FC1F2->0ATE 
«  10.  46  GET  FCIF2->0R0ERE0 
»  10.  57  GET  FC1F2->RECE1VE0 


»  3.  2 

#  3.  15 

PICTURE  ' 

#  3.  20 

»  5.  2 

»  6.  2 
PICTURE 
»  8.  2 
DATE 

#  9.  4 

#  9.  10 

PICTURE  ' 

B  9.  23 
«  9.  34 

#  9.  45 


SAY  ‘FCIF  VOLUME  C 
GET  FC1F4->V0L; 

»1‘ 

SAY  *)* 

SAY  ‘PUBLICATION* 

GET  FC1F4>>PUBNUM; 

■•!* 

SAY  ‘STATUS  IMC; 
ORDERED  RECEIVED* 
GET  FCIF4->STAT0S 
FCIF4->IMC; 


GET 

'81* 

GET 

GET 

GET 


FCIF4->DATE 

FCIF4->0RDERED 

FCIF4>>RECEIVED 


*FCIF  CHANGE  FORMAT  FILE* 


8  2.  2  SAY  'FCIF  VOLUME  (* 

8  2.  15  GET  FCIF3->V0L; 

PICTURE  *81* 

8  2,  20  SAY  *)* 

8  4.  2  SAY  ‘PUBLICATION* 

8  5.  2  GET  FCIF3->PUBNUN: 

PICTURE  *81* 

8  7.  28  SAY  ‘CHANGE* 

8  8.  2  SAY  ‘STATUS  CHANGE; 

NUMBER  DATE  ORDERED; 
RECEIVED* 

8  9.  4  GET  FCIF3->STATUS 

8  9.  10  GET  FCIF3>>CHANGE; 

PICTURE  *81* 

8  9.  27  GET  FCIF3->0ATE 

8  9.  39  GET  FCIF3->0R0ERE0 

8  9.  51  GET  FC1F3->RECEIVE0 


*FC1F  CHANGE  FORMAT  FILE* 


*FCIF  READ  FILE  FORMAT  FILE* 


8  3.  2  SAY  ‘FCIF  VOLUME  (* 

8  3.  15  GET  FCIF5->V0L 

8  3.  20  SAY  *)* 

8  5.  2  SAY  ‘CONTROL* 

8  6.  2  SAY  ‘NUMBER  SUBJECT 

ENTERED  EXPIRES  REVIEW* 

8  7.  2  GET  FCIF5->C0NTNUN 

8  7.  15  GET  FC1F5->SUBJECT; 

PICTURE; 

‘XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* 
8  7.  49  GET  FC1F5->ENT£RE0 

8  7.  59  GET  FCIF5->EXPIRES 

8  7.  69  GET  FCIF5->REV1EU 

8  9.  2  SAY  ‘RESCINDED* 

8  9.  13  GET  FC1F5>>RESCIND 

8  9,25  SAY  ‘DISPOSITION* 

8  9.  37  GET  FCIF5->DISP0; 

PICTURE  *81* 

8  11,  0  SAY  ‘COMMENTS:* 

8  11.  11  GET  FCIF5->C0NNENT 

8  13,  5  SAY  ‘ORIGINATOR:  * 

8  13.  18  GET  FCIF5->0R1GINAT0R; 
PICTURE  *81* 


8  2.  2  SAY  ‘FCIF  VOLUME  (* 

8  2.  15  GET  FC1F3->V0L: 
PICTURE  *81* 

8  2,  20  SAY  *J* 

8  4.  2  SAY  ‘PUBLICATION* 

8  5.  2  GET  FCIF3->PUBNUM; 

PICTURE  *81* 

8  7,  28  SAY  ‘CHANGE* 

8  8.  2  SAY  ‘STATUS  CHANGE; 

NUMBER  DATE  ORDERED; 

RECEIVED* 

8  9.  4  GET  FCIF3->STATUS 

8  9.  10  GET  FCIF3->CHANGE; 

PICTURE  *81* 

8  9.  27  GET  FCIF3->DATE 

8  9,  39  GET  FCIF3->0R0ERED 

8  9,  51  GET  FCIF3->RECEIVED 
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*AF  FORM  8  FORMAT  FILE* 


»  0,  0  SAY  "CONTROL  NUMBER; 

STATUS  DATE  COMPELETEO" 

»  1.  0  GET  F0RM8*>C0NTNUM 

«  1.  30  GET  F0RM8->STATUS; 

PICTURE  ■#l* 

N  I.  66  GET  F0RM8->C0MPDAT£ 

»  3.  0  SAY  *UST  NAME.  FIRST  MI.; 

RANK  SSAN" 

8  4.  0  GET  IN0IV->LNANE; 

PICTURE 

i  4.  19  GET  IN0IV->FNANE; 

PICTURE  "Nl" 

•  4.  32  GET  INOIV-SMI; 

PICTURE  "Jl" 

»  4.  41  GET  INOIV->RANK; 

PICTURE 

8  4.  61  GET  INOIV-SSSAN 

8  6.  0  SAY  "ORGANIZATION/ LOCATION; 

ACFT/CREW  POSITION  ELIGIBILITY; 
PERIOD" 

8  7.  0  GET  INDIV->ORGAN; 

PICTURE  "81" 

8  7.  39  GET  1ND1V->ACFT; 

PICTURE  "81" 

8  7.  61  GET  F0RM8->EL16PER; 

PICTURE  "81" 

8  8,  0  GET  1N0IV->L0CAT; 

PICTURE  "81" 

8  8.  39  GET  1ND1V>>P0SIT10N; 
PICTURE  "81" 

8  10.  14  SAY  "GROUND  PHASE; 

FLIGHT  PHASE" 


8 

11. 

5 

SAY 

■TYPE  DATE ; 

SCORE 

TYPE  DATE" 

8 

13. 

0 

GET 

FORMS- >TEST1; 

PICTURE 

"81 

II 

8 

13. 

17 

GET 

MTOATEl 

8 

13, 

27 

GET 

MSCOREl 

8 

13. 

41 

GET 

F0RM8->FLT1; 

PICTURE  "81" 


8 

13.  62 

GET 

F0RM8->0ATE1 

8 

14.  0 

GET 

F0RM8->TEST2; 

PICTURE  "81" 

8 

14.  17 

GET 

NT0ATE2 

8 

14.  27 

GET 

NSC0RE2 

8 

14.  41 

GET 

F0RN8->FLT2; 

PICTURE  "81" 

8 

14.  62 

GET 

F0RM8->0ATE2 

8 

15,  0 

GET 

F0RM8->TEST3; 

PICTURE  "81" 

8 

15.  17 

GET 

MT0ATE3 

8 

15.  27 

GET 

MSC0RE3 

8 

15.  41 

GET 

F0RM8->FLT3; 

PICTURE  " 

81" 

8 

15.  62 

GET 

F0RM8->DATE3 

8 

16.  0 

GET 

F0RM8->TEST4; 

PICTURE  " 

81" 

8 

16.  17 

GET 

MT0ATE4 

8 

16.  27 

GET 

MSC0RE4 

8 

16.  41 

GET 

F0RM8->FLT4; 

PICTURE  " 

81" 

8 

16.  62 

GET 

F0RM8->DATE4 

8  17.  0  get  F0RN8->TEST5; 

PICTURE  "8r 


8 

17,  17 

GET 

MT0ATE5 

8 

17,  27 

GET 

MSC0RE5 

8 

17.  41 

GET 

F0RM8->FLT5; 

PICTURE  "81" 

8 

17.  62 

GET 

F0RN8->DATE5 

8 

18.  30 

SAY 

"RESTRICTION; 

ADDITIONAL 

TRAINING  DUE  OATES" 

8 

20.  30 

SAY 

"YES  NO" 

8 

21.  31 

GET 

F0RN8->RESTY; 

PICTURE  "81" 

8 

21.  39 

GET 

F0RN8->RESTN; 

PICTURE  "81" 

8 

20.  55 

SAY 

"EPE:" 

8 

20.  60 

GET 

FORMS- >A00TRN1 

8 

21.  55 

SAY 

"FLT;" 

8 

21.  60 

GET 

F0RN8->A00TRN2 

8 

22.  8 

SAY  ' 

‘EXPIRATION  DATE 

ADDITIONAL  TRAINING  COMPLETE  OATES" 
8  23.  5  GET  F0RM8->EXP1 


8  23,  45  GET 

8  23.  59  GET 
READ 

8  1.  0 

8  2  5 

PICTURE  "81" 

8  3.  5  GET 

8  4.  0  SAY 

ORGANIZATION" 

8  5.  0  GET 

PICTURE  "81" 

8  6.  0  GET 

PICTURE  "81" 

8  6.  35  GET 

PICTURE  "81" 

8  7.  0  SAY  "REVIEWING  OFFICER" 

8  8.  0  GET  F0RN8->RANR2; 

PICTURE  "81" 

9.  0  GET 

PICTURE  "81" 

8  9,  35  GET 

PICTURE  "81" 

8  10.  0  SAY  "APPROVING  OFFICER" 

8  11.  0  GET  F0RN8->RANK3; 

PICTURE  "81" 

8  12.  0  GET 

PICTURE  "81" 

8  12,  35  GET 

PICTURE  "81" 

8  15.  15  SAY 

CONTINUE  TO  REVERSE  SIDE" 

READ 

8  0.0  SAY  "IV.  Exaslncr's  Rcaarks:" 

8  1.  0  GET  F0RN8->EXANREN 

8  5,  5  SAY  "PRESS  *Pg  On  to  enter; 

■eao" 


F0RN8->A0DC0NP1 

F0RN8->AD0C0NP2 


SAY  "COMMENTS:  " 

GET  F0RM8->C0MMENTS; 


F0RN8->C0MNENT1 
"FLIGHT  EXAMINER; 

F0RN8->RANK1; 

F0RN8->EXANINER; 

FORMS- >0RGAN1; 


F0RM8->REVIEHER; 
FORMS- >0RGAN2; 


F0RM8->APPR0VER; 

F0RM8->0RGAN3; 

PRESS  ANY  KEY  TO; 


*BACK  OF  AF  FORM  8  FORMAT  FILE* 


CLEAR 

8  0,5  say  "C.  Recoaaended; 
Additional  Training:" 

8  3,5  GET  F0RM8->SEC456 
8  5,5  say  "PRESS  ‘Pg  Dn  to  enter; 

■eao" 
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^DEFAULT  SCREEN  FORMAT* 


•ACTIOM  ITEM  FORMAT  FILE* 


•  2.5  SAY  "Enter  type  evaluation:  * 
i  2,29  get  TYPE  EVA->TYPE; 

PICTURE  "Ol" 

9  3,5  SAY  "Enter  type  description:" 

«  3,32  GET  TYPE  EVA->DESCRIP: 
PICTURE  "il"  “ 

9  4,5  SAY  "Enter  type  zone: 

17  OR  12:" 

9  4,45  GET  TYPE  EVA->  ZONE 
9  5,5  SAY  "Is  a'^fllght  evaluation; 
required?  * 

9  5.40  GET  TYPE  EVA->FLT  REQ; 
PICTURE  "IL" 

9  6.5  SAY  "Is  an  EPE  evaluation; 
required?  " 

9  6,38  GET  TYPE  EVA->EPE  REQ; 

PICTURE  "IL" 

9  7.5  SAY  "Is  an  open  book  exaa; 
required?  " 

9  7,38  GET  TYPE  EVA->OBX  REQ; 

PICTURE  "IL"  “  ~ 

9  8.5  SAY  "Is  a  closed  book  exaa; 
required?  " 

9  8,39  GET  TYPE  EVA->CBX  REQ; 

PICTURE  "IL" 

9  9,5  SAY  "Is  an  Instruaent  exaa; 
required?  * 

9  9.39  GET  TYPE  EVA->INX  REQ; 

PICTURE  "IL" 

9  10,5  SAY  "Is  a  tactical  exaa; 
required?  " 

9  10,37  GET  TYPE  EVA->TAC  REQ; 
PICTURE  "IL* 

9  11,5  SAY  "Is  a  CAPS  or  Bold  Face; 
required?  * 

9  11,41  GET  TYPE  EVA->BF  CAP  REQ; 
PICTURE  "IL"  "  -  - 

9  12,5  SAY  "Is  a  publications  check; 
required?  " 

9  12,42  GET  TYPE  EVA->PUBCK  REQ; 
PICTURE  "IL"  ~  “ 

9  13,5  SAY  "Is  IRC  required?  " 

9  13.24  GET  TYPE  EVA->IRC  REQ; 
PICTURE  "IL"  ~  " 

9  14,5  SAY  "Does  this  evaluation; 
update  current  zone?  " 

9  14,49  GET  TYPE  EVA->UP0ATE; 
PICTURE  "IL" 

9  15,5  SAY  "Is  a  Rloht  or  Rear  seat; 
landing  required?  '' 

9  15,48  GET  TYPE  EVA->RLAN0; 

PICTURE  "IL" 

9  18,5  SAY  "Use  Pg  Up/Pg  On  to; 
scroll  types  of  evaluations." 

9  19,5  SAY  "PRESS  ‘U  TO  SAVE  ANY; 
CHANGES  AND  EXIT." 


9  2.  1  SAY  "STATUS; 

TITLE  OPENED; 

CLOSED  CONTROL" 


9 

3.  68 

SAY 

*NUNBER* 

9 

4.  1 

GET 

ACTION->STATUS; 

PICTURE 

*91* 

9 

4.  9 

GET 

ACTI0N->T1TLE; 

PICTURE 

*91* 

9 

4.  50 

GET 

ACTI0N->0PEN£0 

9 

4,  59 

GET 

ACTION- >CLOSED 

9 

4.  68 

GET 

ACTION->CONTNUM; 

PICTURE 

*91* 

9  6.  1  SAY  "ORIGINATOR:  " 

9  6,  15  GET  ACTION->ORIGIN; 

PICTURE  "91" 

9  7.  0  SAY  "(PRESS  ‘Pg  Dn  to; 

enter  aeao  then  exit  word  processor; 
noraally}" 

9  8.  0  SAY  "DISCUSSION" 

9  8.  12  GET  ACTION->OISCUSSION 


*SUP  EVAL  FORMAT  FILE* 


9  1.0  SAY  "SUPPLEMENTARY; 
EVALUATIONS* 

9  3,5  SAY  "STATUS  OPR; 

AREA* 

9  5.5  GET  SUPEVAL->STATUS; 

PICTURE  *91* 

9  5,15  GET  SUPEVAL->OPR; 

PICTURE  *91* 

9  5,47  GET  SUPEVAL->AREA; 

PICTURE  *91* 

9  7.5  SAY  *DATE  LAST  EVAL; 

DATE  NEXT  DUE* 

9  9.8  GET  SUPEVAL->DATEACC 
9  9,35  GET  SUPEVAL->DATEDUE 
9  11,5  SAY  *CONMENTS:* 

9  11,17  GET  SUPEVAL-KOMMENT 
9  15,5  SAY  *{PRESS  ‘Pg  On  to  enter; 
aeao  then  exit  word  processor; 
noraally}* 


B  22.  15 

SAY 

*PARAGRAPH*  PICTURE 

*AF  FORM  847  FORMAT  FILE* 

B  22.  28 

GET 

F847->SENT2:  B  22.  30 

B  22.  42 

GET 

F847->ITEM4; 

PICTURE 

■Bl* 

#  1.  0  SAY 

*STATUS* 

B  22.  44 

SAY 

*ITEM* 

9  1.  18  SAY 

*REC0MMEN0ATI0N 

FOR; 

B  22.  53 

GET 

F847->FIG2; 

CHANGE  OF  PUBLICATION* 

PICTURE 

*B1* 

•  2.  0  GET 

F847->STATUS; 

B  22.  55 

SAY 

*FISURE* 

PICTURE  'Bl* 

READ 

«  3.  34  SAY 

*0ATE* 

B  1.  0 

SAY 

*T0  READ* 

tf  3.  39  GET 

F847->0ATE 

B  2,  11 

GET 

F847->CURTEXT3 

«  3.  SO  SAY 

*UN1T/NUMBER* 

B  9.  0 

SAY 

*REASON* 

«  3.  62  GET 

F847->UN1T: 

B  11.  11 

GET 

F847->REAS0N 

PICTURE  'Br 

B  22.  0 

SAY 

*ORGANIZATION* 

B  3.  70  SAY 

B  22.  14 

GET 

F847->0RGAN: 

B  3.  71  GET 

F847->NUMBER 

PICTURE 

*Bl* 

*NAME/GRAOE  OF; 

B  5.  0  SAY 

*PUBL1CAT10N  NUMBER; 

B  24.  0 

SAY 

BASIC  DATE 

REVISION/CHANGE: 

ORIGINATOR* 

DATE* 

B  24.  27 

GET 

F847->NAME; 

B  6.  1  GET 

F847->PUB; 

PICTURE 

*B1* 

PICTURE  *B1* 

READ 

B  6.  24  GET 

F847->BAS0ATE 

B  2.  21 

SAY 

*(REVERSE  SIDE  OF  AF; 

B  6.  45  GET 

F847->REV0ATE 

FORM  847)* 

B  8.  0  SAY 

*PAGE  NUMBER: 

B  4.  24 

SAY 

■1ST  INDORSEMENT* 

MAJOR  PARAGRAPH  TITLE* 

B  5,  0 

SAY 

*T0* 

B  9.  1  GET 

F847->PAGE 

B  5.  4 

GET 

F847->T01; 

B  9.  17  GET 

F847->T1TLE; 

PICTURE 

*B1* 

PICTURE  *B1* 

B  5.  32 

SAY 

■FROM* 

B  11.  0  SAY 

*SUB-PARAGRAPH  TITLE; 

B  5,  39 

GET 

F847->FR0M1; 

ITEM  NUMBER* 

PICTURE 

*B1* 

B.  12.  1  GET 

F847->SUBPAR: 

B  7.  4 

GET 

F847->C0NCUR1; 

PICTURE  *B1* 

PICTURE 

*BI* 

B  12.  55  GET 

F847>>ITENNUN: 

B  7.  6 

SAY 

■CONCUR* 

PICTURE  *BI* 

B  7.  39 

GET 

F847.>N0C0NCUR1: 

B  14.  1  GET 

F847->CHANG£; 

PICTURE 

*B1* 

PICTURE  *BI* 

B  7.  41 

SAY 

■DO  NOT  CONCUR* 

B  14.  3  SAY 

*CNANGE* 

B  9.  0 

SAY 

■REMARKS* 

B  14.  12  GET 

F847->0ELETE; 

B  9.  11 

GET 

F847->RENARKS1 

PICTURE  *B1* 

B  13.  0 

SAY 

■DATE* 

B  14.  14  SAY 

*0ELETE  SO 

MUCH; 

B  13.  6 

GET 

F847->0ATE2 

OF* 

B  13.  17 

SAY 

■NANE/GRADE/TITLE* 

B  14.  39  GET 

F847->PAR: 

B  13.  35 

GET 

F847->NAME2; 

PICTURE  *BI* 

PICTURE 

•Bl* 

B  14.  41  SAY 

*PARAGRAPH* 

B  15.  24 

SAY 

■2ND  INDORSEMENT* 

B  14.  53  GET 

F847->1TEN: 

B  17.  1 

SAY 

■TO* 

PICTURE  *Bl* 

B  17.  5 

GET 

F847->T02; 

B  14.  55  SAY 

*ITEM* 

PICTURE 

*B1* 

B  14.  62  GET 

F847->FI6; 

B  17.  33 

SAY 

■FROM* 

PICTURE  *B1* 

B  17.  39 

GET 

F647->FR0M2; 

B  14.  64  SAY 

*FIGURE* 

PICTURE 

*BI* 

B  16.  0  SAY 

*AS  READS* 

B  19.  5 

GET 

F847->C0NCUR2; 

B  16.  11  SAY 

*Prtss  ‘PgDn  To 

View*; 

PICTURE 

*BI* 

GET  CURTEXTl 

B  19.  7 

SAY 

■CONCUR* 

READ 

B  19.  39 

GET 

F847->N0C0NCUR2; 

B  1.  0  SAY 

*T0  READ* 

PICTURE 

*BI* 

B  2.  11  GET 

F847->PR0PTEXT 

B  19.  41 

SAY 

■DO  NOT  CONCUR* 

B  9.  0  SAY 

'AFTER  PRESENT* 

READ 

B  11.  20  GET 

F847->SENT: 

B  1.  1 

SAY 

■REMARKS* 

PICTURE  *B1* 

B  3.  10 

GET 

F847->RENARKS2 

B  11.  22  SAY 

*SENTENCE* 

B  8.  0 

SAY 

■DATE* 

B  11.  37  GET 

F847->ITEN3: 

B  8.  6 

GET 

F647->0ATE3 

PICTURE  *BI* 

B  8.  18 

SAT 

■NANE/GRAOE/TITLE* 

B  11.  39  SAY 

*ITEM* 

B  8.  36 

GET 

F847->NANE3; 

B  13.  0  SAY 

*AS  READS* 

PICTURE 

*BI* 

B  15.  11  GET 

F847->CURTEXT2 

B  10.  24  SAY 

*3R0  INDORSEMENT* 

B  22.  0  SAY 

*ADD  NEM* 

B  12. 

L  SAT 

■TO* 

B  22.  13  GET 

F847.>PAR2: 

B  12. 

>  6E1 

F847->T03; 

PICTURE  *Bl* 

PICTURE 

*B1* 

"SEKTE 

I 

I 

I 

I 

I 

I 

'■| 

i 

I 


*£P£  OISCR£PANCY  FORMAT  FILE* 


•  12.  33  SAY  'FROM* 

»  12.  39  GET  F847->FR0M3: 

PICTURE 

»  13.  5  GET  F847->C0NCUR3; 

PICTURE 

•  13.  7  SAY  ■CONCUR" 

•  13.  39  GET  Fa47->N0C0NCUR3; 

PICTURE  •»1" 

•  13.  41  SAY  "DO  NOT  CONCUR* 

•  15.  2  SAY  "REMARKS* 

•  17.  11  GET  F847->REHARKS3 

»  22.  1  SAY  "DATE" 

9  22.  7  GET  F847->0ATE4 

«  22.  19  SAY  "NANE/GRADE/TITLE" 

9  22.  37  GET  F847->NAME4; 
PICTURE  "il" 

READ 

9  1.  24  SAY  "ATH  INDORSEMENT" 

8  3.  2  SAY  "TO" 

8  3.  6  GET  F847->T04: 

PICTURE  "81" 

8  3.  34  SAY  "FROM" 

8  3.  40  GET  F847->FR0N4; 
PICTURE  "81* 

8  5.  6  GET  F847->C0NCUR4: 

PICTURE  "81" 

8  5,  8  SAY  "CONCUR" 

8  5.  40  GET  F847->N0C0NCUR4; 

PICTURE  "81" 

8  5.  42  SAY  "00  NOT  CONCUR" 

87.  2  SAY  "REMARKS" 

8  9.  11  GET  F847->REMARKS4 
8  13.  1  SAY  "DATE" 

8  13.  7  GET  F847->DATES 

8  13.  19  SAY  "NAME/GRAOE/TITLE" 

8  13.  37  GET  F847->NAME5i 

PICTURE  "81" 


8  2. 
GRADE 
8  3. 

8  3. 

8  3. 

8  3. 


AREA  NAME; 


2 

8 

12 

44 


SAY  "AREA  « 
DESCRIPTION" 

GET  EPEOIS->AR£A 

EPE01S->SU8AREA 
EPE01S->AREANAME 
EPEOIS->GRADE; 


GET 
GET 
GET 

PICTURE  "81* 

8  3.  54  GET  £PEOIS->OISCREP 

8  10.  5  SAY  "PRESS  ‘Pa  Dn  TO  ENTER 
MEMO  AND  ‘Pg  Up  TO  EXIT  MEMO" 

8  11.  5  SAY  "PRESS  ‘END  TO  SAVE; 

AND  EXIT  DISCREPANCY" 

8  13.  5  SAY  "EDITING  EMERGENCY; 

PROCEDURES  DISCREPANCY" 


*MSO  FLIGHT  DISCREPANCY  FORMAT* 


8  5.5  SAY  "AREA#  SUBAREA  AREANAME 
8  7.5  GET  FLTUUPS->AREA 
8  7.12  GET  FLTMUPS>>SUBAREA 
8  7.21  GET  FLTUUPS->AREANANE 


*HSO  EPE  DISCREPANCY  FORMAT  FILE* 


8  5.5  SAY  "AREA#  SUBAREA  AREANAME 

8  7.5  GET  EPEUUPS->AREA 

9  7,U  GET  £PEHUPS>>SU8AR£A 
8  7.21  GET  EPEUUPS>>AREANANE 


*FLIGHT  DISCREPANCY  FORMAT  FILE* 


8  3.  3  SAY  "AREA  #  AREA  NAME; 

GRADE  DESCRIPTION" 

8  4.  2  GET  FLTOIS->AREA 

8  4.  8  GET  FLTDIS->SUBAREA 

8  4.  11  GET  FLT01S->AREANANE 

8  4.  43  GET  FLT01S->GRA0E; 

PICTURE  "81* 

8  4.  50  GET  FLT0IS->01SCREP 
8  10,  5  SAY  "PRESS  ‘Pg  On  TO; 

ENTER  MEMO  AND  ‘Pg  Up  TO  EXIT  MEMO" 
8  11.  5  SAY  "PRESS  ‘END  TO  EXIT; 

AND  SAVE  DISCREPANCY" 

8  13.  5  SAY  "EDITING  FLIGHT; 

EVALUATION  DISCREPANCY" 


*USO  FLIGHT  DISCREPANCY  FORMAT* 


8  5.5  SAY  "AREA#  SUBAREA  AREANAME 
8  7.5  GET  UFLTUPS->AREA 
8  7.12  GET  UFLTUPS->SUBAREA 
8  7.21  GET  HFLTUPS->AREANAME 


*HSO  EPE  DISCREPANCY  FORMAT  FILE* 


8  5.5  SAY  "AREA#  SUBAREA  AREANAME 
8  7.5  GET  MEPUUPS->AREA 
8  7,12  GET  HEPUUPS->SUBAREA 
8  7,21  GET  HEPMUPS->AR£ANAME 


•FCIF  TECH  ORDER  FORMAT  FILE* 


•  2.  2  SAY  'FCIF  VOLUME  (  )‘ 

•  2.  15  fiET  TECHORO->VOL 

•  4.  2  SAY  'STATUS  TECH  ORDER; 

NUMBER  ,  ,  P^TE' 

i  5.  4  GET  TECHORD->STATUS 

•  5.  9  GET  TECHORD->PUBNUN: 
PICTURE  'Bl' 

B  5.  15  GET  TECHORD->PUB2: 

PICTURE  'Bl' 

B  5,  21  GET  TECH0R0->PUB3; 

PICTURE  'Bl' 

0  5.  27  GET  TECHORO->PUB4: 

PICTURE  "B!' 

B  5,  33  GET  TECH0R0->PUB5; 

PICTURE  "Bl" 

B  7,  38  SAY  'TITLE* 

B  8.  25  GET  TECHORD->TITLE; 
PICTURE  *Bl' 

B  5.  57  GET  TECHORD>>OATE 
B  10,  9  SAY  'DATE  ORDERED; 


DATE  RECEIVED' 

B  11.  11  GET  TECHORD*>ORDERED 

B  11.  35  GET  TECHORD->RECEIVED 

B  13.  9  SAY  'QUANTITY  ORDERED; 

DISTRIBUTION* 

B  14.  11  GET  TECHORO->QUANT 

B  14.  35  GET  TECHORO<>OIST 


Appendix  B ;  Glossary  of  Acronyms 


AAC 

Alaskan  Air  Command 

AF 

Air  Force 

AFIT 

Air  Force  Institute  of  Technology 

AFR 

Air  Force  Regulation 

AFRES 

Air  Force  Reserves 

ANG 

Air  National  Guard 

ANGB 

Air  National  Guard  Bureau 

FCIF 

Flight  Crew  Information  File 

HQ  TAC/DOV 

Headquarters  Tactical  Air  Command 
of  Standardization/Evaluation 

Directorate 

MAC 

Military  Airlift  Command 

MAJCOM 

Major  Air  Command 

MCR 

Multi  Command  Regulation 

PACAF 

Pacific  Air  Command  Air  Forces 

RAM 

Read  and  Access  Memory 

SAC 

Strategic  Air  Command 

SEFE 

Standardization  Evaluation  Flight 

Examiner 

TAC 

Tactical  Air  Command 

TACR 

Tactical  Air  Command  Regulation 

TAF 

Tactical  Air  Forces 

TFG 

Tactical  Fighter  Group 

TFW 

Tactical  Fighter  Wing 

USAFE 

United  States  Air  Forces  Europe 
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Appendix  C ;  Definitions  of  Terms 


anomalies  Deviations  from  what  would 

normally  be  expected. 

compiled  Computer  source  code  which  has  been 

converted  to  machine  language  code. 

database  A  set  of  logically  related  files. 


default  setting  Settings  which  will  be  entered 

unless  changed  by  the  user. 

field  One  item  of  information  in  a 

database  file. 


file 


A  set  of  related  information  which 
makes  up  a  database. 


floppy  disk 


A  removable  flexible  magnetic  storage 
device  for  microcomputers. 


hard  disk  A  non-removeable  magnetic  storage 

device  for  microcomputers  generally 
with  large  storage  capacity. 

hardware  Computer  components  such  as  circuit 

boards,  disk  drives,  etc. 


modem  Specialized  computer  hardware  which 

allows  the  computer  to  transmit  and 
receive  information  over  common 
telephone  lines. 

record  A  set  of  information  fields  which 

are  related  uniquely. 


requisite  Any  requirement  which  must  be 

accomplished  for  a  flight  evaluation 
to  be  considered  complete. 

screen  prompts  Questions  or  choices  which  require 

a  keyboard  input  from  the  user. 


software 


Computer  applications  programs. 
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source  code 


user-friendly 


Computer  code  written  in  a  higher 
level  language  which  is  more  easily 
comprehended  by  humans. 

Computer  applications  which  are 
easy  for  a  novice  or  expert  computer 
user  to  operate. 
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Appendix  D;  Interview  Questions  and 
Ninth  Air  Force  Stan/Eval  Conference  Handout 


Interview  Questions  for  unit  Chiefs  of  Standardization/ 

Evaluation 

1.  What  type  of  computer  do  have  have  access  to  in  your 
office? 

2.  How  many  floppy  disk  drives  does  your  computer  have? 

3.  What  size  hard  drive  does  your  computer  have  if 
applicable? 

4.  How  much  memory  does  your  computer  have? 

5.  What  type  print  does  your  office  have? 

6.  What  type  of  applications  programs  do  you  use? 

7.  On  a  scale  from  zero  to  five  with  zero  being  no 
experience  and  five  being  expert  what  is  the  computer 
experience  level  of  your  office? 

8.  Have  you  made  any  attemps  to  automate  the  stan/eval 
management  function? 

9.  Would  you  use  an  automated  management  system  if  one 
were  available? 

10.  What  areas  would  you  most  like  to  see  automated? 

11.  Do  you  have  dedicated  secretarial  help  in  your 
office? 


The  remainder  of  Appendix  D  consists  of  a  handout 
that  was  distributed  to  each  participant  at  the  I988  Ninth 
Air  Force  Standardization/Evaluation  Conference.  Comments 
were  solicited  and  the  handouts  collected  at  the  close  of 
the  conference. 
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1988  9AF  STANDARDIZATION  EVALUATION  CONFERENCE 
STAN/EVAL  MANAGEMENT  PROGRAM  PRESENTATION 


CAPTAIN  BOBBY  M.  ROBINSON,  AFIT/LS 


Please  use  these  forms  to  make  any  notes  or  suggestions  on 
program  items  you  would  like  to  see  done  better  or  made 
easier  to  use.  Also  make  notes  on  any  item  that  seems  to 
be  confusing.  Return  this  package  to  Capt  Robinson  after 
the  presentation  and  hands  on  demonstration.  Your 
cooperation  is  appreciated. 


STAN 

/  EVAL  MANAGEMENT  PROGRAM 

1. 

ADD  DATA 

2. 

CHANGE  DATA 

3. 

VIEW  DATA 

4. 

DELETE  DATA 

5. 

PRINT  OPTIONS  6. 

TESTING  PROGRAM  . 

7. 

EXIT  PROGRAM 

ENTER  CHOICE  0 


101 


ENTER  CHOICE  0 


L 


\ 

t 


PERSONAL 

DATA 

GROUND  PHASE 

REQUISITES 

LAST  NAME, 

FIRST  MI 

TYPE 

DATE 

SCORE 

ORGANIZATION 

OPEN  BOOK 

/ 

/ 

CLOSED  BOOK 

/ 

/ 

LOCATION 

INSTRUMENT 

/ 

/ 

EPE 

/ 

/ 

RANK  SSAN 

ACFT  TYPE 

BOLD  FACE 

/ 

/ 

CREW  POSITION 

FLIGHT 

EVALUATIONS 

TYPE 

EXPIRATION  DATE 

INSTRUMENT 

/ 

/ 

QUALIFICATION 

/ 

/ 

TACTICAL 

/ 

/ 

MISSION 

/ 

/ 

INSTRUCTOR 

/ 

/ 

OTHER 

/ 

/ 

PRESS  ANY  KEY 

TO 

CONTINUE 
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ADD  FCIF  ITEMS 


1.  PUBLICATION 

2.  SUPPLEMENT 

3.  CHANGE 

4.  IMC 

5.  READ  FILE  ITEM 

6.  RETURN  TO  MAIN  MENU 


ENTER  CHOICE  0 


CHANGE  DATA 

1. 

INDIVIDUAL 

2. 

FCIF 

3. 

AF  FORM  847 

4. 

AF  FORM  8 

5. 

ACTION  ITEMS 

6. 

SUPPLEMENTARY  EVALUATION 

PRESS  RETURN  FOR  MAIN  MENU 

ENTER  CHOICE  0 


VIEW  DATA 


1. 

INDIVIDUAL 

2. 

AF  FORM  8 

3. 

AF  FORM  847 

4. 

FCIF  INDEX 

5. 

OPEN  ACTION  ITEMS 

6. 

TRENDS 

7. 

SEFE  OBJECTIVITY 

8. 

REQUISITES/EVALUATIONS  DUE 

9. 

SUPPLEMENTARY  EVALUATIONS 

PRESS  RETURN  FOR  MAIN  MENU 

ENTER  CHOICE  0 


DELETE  DATA 

1. 

INDIVIDUAL 

2. 

FCIF 

3. 

AF  FORM  847 

4. 

AF  FORM  8 

5. 

ACTION  ITEM 

6. 

SUPPLEMENTARY  EVALUATION 

PRESS  RETURN  FOR  MAIN  MENU 

ENTER  CHOICE  0 
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PRINT  OPTIONS 


1.  NOTIFICATION  LETTERS 

2.  AF  FORM  8 

3.  BOARD  NOTIFICATION  LETTERS 

4.  BOARD  MINUTES 

5.  FCIF  INDEX 

6.  TREND  SUMMARY 

7.  AF  FORM  847 


ENTER  CHOICE  0 


Appendijc  Et  03er*a  Guide 

STAM/EVAL  MAHAGEMENT  PROGRAM 
version  1.0 

Copyright  Bobby  M.  Robinson  1988 
•••RESTRICTED  RIGHTS  HARHIHG^^^ 

Stan/Eval  Management  Program  is  a  copyrighted  package  designed 
for  the  exclusive  use  of  the  United  States  Military,  and  is  protect¬ 
ed  by  U.S.  Copyright  Law  (Title  17  United  States  Code).  Unauthor¬ 
ized  reproduction  and/or  sales  may  result  in  Imprisonment  of  up  to 
ONE  YEAR,  and  fines  of  up  to  $10,0(X)  (17  USC  506).  Copyright  in¬ 
fringers  may  also  be  subject  to  civil  liability. 

•••DISCUIMER  OF  HARRANTEE^^^ 

This  software  and  manual  is  distributed  without  any  express  or 
implied  warranties  whatsoever.  Because  of  the  diversity  of  condi¬ 
tions  and  hardware  under  which  this  program  may  be  used,  no  warran¬ 
tee  of  fitness  for  use  is  offered.  The  user  is  advised  to  test  the 
program  thoroughly  before  relying  on  it.  The  user  must  assume  the 
entire  risk  of  using  the  program. 

System  Requirements 

Hardware  requirements  include  a  PC-compatible  microcomputer 
with  256K  RAM,  one  floppy  disk  drive,  and  a  hard  disk  drive,  a 
monitor,  and  a  system  compatible  printer  capable  of  single  sheet 
feed. 

Software  requirements  include  dBase  III  Plus,  and  MS-DOS  2.1  or 


higher.  And  an  optional  word  processing  text  editor 


Table  of  Contents 


System  Requirements  .  1 

Introduction  .  3 

Installation  .  3 

Program  Startup  .  3 

Trademarks  .  4 

Add  Data .  4 

Change  Data .  5 

View  Data .  6 

Delete  Data .  6 

Print  Data  . . 6 

Set  Defaults  . .  6 
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Introduction 


The  Stan/Bval  Management  Program  is  an  easy-to-use  program 
designed  to  aid  U.S.  Air  Force  standardization/evaluation  officers 
in  management  of  this  functional  area.  The  prograuD  is  designed  to 
track  requirements  and  produce  require  documentation  for  effective 
program  management. 


Installation 

Before  beginning  to  use  this  program,  you  must  first  Install 
dBase  III  Plus  in  a  system  subdirectory  or.  set  the  default  path  to 
the  program  subdirectory.  An  example  of  how  to  accomplish  this 
follows.  Type  <md  DBASE>.  <RETURN>,  <od  DBASE>,  <RETURN>.  Now 
follow  the  dBase  installation  procedures  that  came  with  the  dBase 
manual.  Once  dBase  is  properly  installed  Insert  program  disk  one  in 
Drive  A,  and  type  <copy  a :*.*>.  Next,  Insert  program  disk  two  in 
Drive  A,  and  type  <copy  a:*.*>.  If  a  word  processing  program  is  to 
be  used  such  as  WordStar  it  must  also  be  installed  in  this  direc¬ 
tory.  Install  the  TAG  Testing  Program  in  this  directory  using  the 
appropriate  procedures. 

Using  a  line  editor  modify  the  existing  conflg.sy8  file  or 
create  a  new  con flg.sy8  file.  The  config.8y8  file  must  have  the 
following  to  lines  <flles  z  30>  and  <buffer8  z  30>.  If  there  are 
memory  resident  programs  installed  the  TAG  Testing  program  cannot  be 
accessed  through  the  management  program. 

Gopy  or  create  the  following  text  files  in  this  directory: 
INST.LTR.  TAG.LTR,  MISSION.LTR,  and  BOARD.LTR 
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Tradeaarks 


dBase  III  Plus  is  a  registered  tradenark  of  Ashton-Tate 

WordStar  is  a  registered  trademark  of  MicroPro  International  Corp. 

MS-DOS  Is  a  registered  trademark  of  Microsoft  Corporation. 

•••WARMIMG»«« 

Only  exit  the  program  from  the  Main  Menu  exit  option.  Any 
attempt  to  exit  at  other  positions  could  result  In  damage  to  data 
files  and  lose  of  data. 

•••WARMING*** 

If  advanced  dBase  III  Plus  data  editing  Is  used  Insure  the 
proper  data  files  and  Indexes  are  opened  to  prevent  Improper  program 
execution  In  the  menu  driven  mode. 

ADD  DATA 

When  adding  records  the  program  will  In  most  Instances  automa¬ 
tically  step  to  a  blank  record  upon  pressing  <RETURN>  at  the  end  of 
the  current  record.  When  In  the  add  data  mode  pressing  <RETURN> 
with  the  screen  cursor  In  the  first  position  of  the  first  field  of  a 
blank  record  will  return  you  to  the  main  menu. 

•••NOTE*** 

The  program  will  only  accept  dates  In  the  day /month/year  for¬ 
mat.  For  example,  06/05/88  would  be  Interpreted  as  6  May  88. 
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•••CAUTION*** 


If  manually  entering  Individual  data  Insure  data  Is  entered  In 
the  same  format  as  computer  generated  data  Ije.  enter  eligibility 
periods  as  "OCT  88  -  MAR  89". 


•••HARMING*** 

DO  NOT  change  the  computer  generated  AF  form  8  control  number. 
Attempting  to  change  this  control  number  could  result  In  more  than 
one  record  being  asslnged  the  same  number  and  In  effect  cause  data 
to  be  lost. 

When  adding  PCIF  data  an  understanding  of  the  program  structure 
Is  helpful  to  Insure  data  Is  properly  Indexed  for  retrelval.  The. 
program  Is  designed  to  display  FCIF  data  In  the  following  order: 
Basic  Publication,  Supplements,  Changes,  and  INCs.  If  there  is  a 
change  to  a  TAC  Sup  1,  the  change  should  be  entered  as  a  supplement 
l.e.  TAC  Sup  1  CH  1.  This  method  will  Insure  FCIF  Indexes  are 
viewed  and  printed  In  the  proper  order.  Also,  If  dates  of  publica¬ 
tions  are  not  entered  ”0  UNKNOWN"  will  be  displayed  and  printed  on 
the  Index.  Read  file  Item  control  numbers  should  be  entered  as  two 
digit  numbers  l.e.  01,  02  etc. 

Change  Data 

^en  editing  an  AF  form  8  DO  NOT  enter  a  date  In  the  date 
flight  phase  completed  field  If  a  date  has  previously  been  entered. 
All  Cautions,  Warnings,  and  Notes  mentioned  In  the  Add  Data  section 
also  apply  in  the  Change  Data  Section. 
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View  Data 

When  In  the  View  Data  mode  no  data  may  be  entered  or  changed. 
This  mode  Is  strictly  used  to  view  on  the  screen  what  is  In  a 
particular  record. 

•••NOTE»*» 

Any  view  screen  may  be  printed  by  pressing  <Shift>  then 
<PrtSc>. 

Delete  Data 

•••WARMING*** 

When  data  Is  deleted  through  this  menu  option  that  data  is  lost 
forever.  Data  may  not  be  recovered  after  deleting  with  this  option. 
Print  Options 

•••WARMING*** 

DO  NOT  interupt  the  program  when  printing.  In  the  event  an 

interruption  does  occur  and  you  find  yourself  at  the  dBase  III  Plus 

Dot  Prompt  type  the  following: 

"SET  PRINT  OFF"  <RETURN> 

"SET  CONSOLE  ON"  <RETORN> 

"SET  DEVICE  TO  SCREEN"  <RETURN> 

"DO  MEMO"  <RETURM> 

These  commands  will  return  control  of  the  printer  to  you  and  return 
you  to  the  Main  Menu. 

Set  Defaults 

The  user  must  initialize  the  default  values  prior  to  attempting 
to  create  an  AF  Form  8.  Failure  to  create  the  desired  defaults  will 
result  in  program  errors. 
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